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2 1- ABSTRACT 

5 THE RM05/3/2 DUAL PORT LOGIC TEST PERFORMS A SERIES OF 

6 TESTS WHICH VERIFY THAT THE RM05/3/2 DUAL PORT LOGIC 

7 IS FUNCTIONING PROPERLY. ONLY THE CONTROL LOGIC IS TESTED 
S BY THIS PROGRAM; DATA HANDLING IN THE DUAL PORT MODE 

9 IS NOT TESTED BY THIS PROGRAM. 
'0 

11 BOTH PORTS OF THE DRIVE ARE CABLED TO THE SAME MASSBLS BY 

12 A SPECIAL ADAPTER CABLE. THIS ARRANGEMENT ALLOWS THE DUAL 
'3 PORT lOGIC TO BE TESTED FROM ONE PDP-11, RH11 OR RH70. 

14 

15 THIS PROGRAM IS THE SECOND PART OF THE RM05/3/2 DUAL POR T 

16 OPTION LOGIC TEST. AND IS USED TO TEST THE ' PORT SELECT" 
W SWITCH. 

18 
19 
20 

21 2. REQUIREMENTS 

22 

23 

24 2.1 EQUIPMENT 

26 PDP-11 PROCESSOR 

27 8K MEMORY 

28 KW11-L OR KW11-P CLOCK 

29 TERMINAL 

30 RH11 OR RH70 

31 1 - DISK DRIVE (RM05. RM03 OR RM02) 

32 RM DUAL PORT TEST CABLE (P/N: 7010507-02) 
33 

34 2.2 PREREQUISITE PROGRAMS 

36 A. RM05/3/2 DISKLESS TEST, PART 1 & 2 
37 

38 B. RM05/3/2 FUNCTIONAL TEST. PART 1, 2 £ 3 
39 

40 THE PRELIMINARY PROGRAMS MUST BE RUN TWICE: ONCE FROM EACH 

41 PORT (A £ B). 
42 

43 C. RM05/3/2 DUAL PORT LOGIC TEST. PART 1 
44 

45 2.3 OTHER PROGRAMS 

46 

47 DYNAMIC OPERATION OF THE DUAL PORT OPTION IS TESTED 

48 BY THE RM05/3/2 PERFORMANCE EXERCISER PROGRAM. 
49 

50 
51 

5? ^. LOADING PROCEDURES 

53 

54 

55 THE PROGRAM MAY BE LOADED BY THE ABSOLUTE PAPER TAPE 

56 LOADER OR IT MAY BE LOADED FROM THE APPROPIATE MEDIA 

57 USING THE ASSOCIATED'XXDP" LOADER. THE PROGRAM MAY NOT 
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58 BE INCLUDED IN AN 'XXDP' CHAIN. 

59 

60 

61 

62 4. STARTING PROCEDURES 

63 

64 

65 4.1 STARTING ADDRESSES 
66 

67 A. THE NORW STARTING ADDRESS OF THE PROGRAM IS LOCATION 

68 200(8). STARTING AT THIS ADDRESS ALLOWS THE OPERATOR 

69 TO SELECT (OR RESELECT) THE ADDRESS OF THE DRIVE TO 

70 BE TESTED. 
71 

72 B. THE RESTART ADDRESS IS LOCATION 204(8). THE PROGRAM 

73 WILL USE THE CURRENT DRIVE ADDRESS. 
7U 

75 C. THE PROGRAM CAN BE STARTED AT LOCATION 210(8) TO ALLOW 

76 THE RH11 OR RH70 ADDRESS TO BE CHANGED. 

77 

78 4.2 OPERATOR ACTION 
79 

80 A. CONNECT THE DUAL PORT TEST CABLE BETWEEN BUS A 

81 I BUS B ON THE DRIVE BEING TESTED. (SEE SECTION 5.4) 

82 B. LOAD THE PROGRAM INTO MEMORY IN THE PROCESSOR CONTROLLING 

83 THE MASS8US USED FOR TESTING. 

84 C. SWITCH THE 'PORT SELECT' SWITCH ON THE DRIVE TO BE 

85 TESTED TO THE 'A/8' POSITION. CYCLE THE DRIVE UP. 

86 D. LOAD THE APPROPIATE STARTING ADDRESS (200(8) OR 210(8)) 

87 INTO THE SWITCH REGISTER (OR THE 'SOFTWARE' SWITCH REGISTER, 

88 SEE SECTiON 5.2.) 

89 E. PRESS START. 

90 F. ENTER THE DRIVE NUMBER. 

91 G. ENTER THE NUMBER OF THE TEST TO BE RUN. ( ' CARRIAGE RETURN' 

92 OR '0' WILL RUN ALL TESTS.) 

93 H. THE PROGRAM MAY BE STOPPED AT ANY TIME AND RESTARTED 

94 FROM LOCATION 204. 
95 

96 

97 

98 5. OPERATING PROCEDURES 

99 

100 

101 5.1 'SOFTWARE' SWITCH REGISTER 
102 

103 IF THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR 

104 THE PROGRAM WILL DETERMINE THAT THE HARDWARE SWITCH REGISTER IS 

105 NOT PRESENT AND WILL USE A 'SOFTWARE' SWITCH REGISTER. THE 

106 'SOFTWARE' SWITCH REGISTER IS LOCATED AT LOCATION 176 (8). THE 

107 SETTINGS OF THE 'SOFTWARE' SWITCHES ARE CONTROLLED THROUGH A KEYBOARD 

108 ROUTINE WHICH IS CALLED BY TYPING A 'CONTROL G'. THE PROGRAM WILL 

109 RECOGNIZE THE 'CONTROL G' AT ANY TIME EXCEPT WHEN THE PROGRAM 
MO IS AT A HIGHER PRIORITY PROCESSING AN RM80 INTERRUPT. iHt 

111 'SOFTWARE' SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBFR IN RESPONSE 

112 TO THE PROMPT FROM THE SWITCH ENTRY ROUTINE: 
113 

114 'SWR NNNNNN NEW "' 
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115 

116 EACH TIME SWITCH SETTING ARE ENTERED. THE ENTIRE SWITCH REGISTER 

117 IMAGE MUST BE ENTERED. LEADING ZEROS ARE NOT REQUIRED.. 'RUBOUT' AND 

118 'CONTROL U' FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS 

119 DURING SWITCH ENTRY. 
120 

121 ON PROCESSORS WITH HARDWARE SWITCH REGISTERS. THE 'SOFTWARE' SWITCH 

122 REGISTER MAY BE USED, IF THE PROGRAM FINDS ALL TS IN THE SWITCHES. 

123 ALL SWITCH REGISTER REFERENCES WILL BE TO THE 'SOFTWARE' REGISTER 

124 AND THE PROCEDURES DESCRIBED ABOVE MUST BE FOLLOWED. 
125 

126 5.2 OPERATIONAL SWITCH SETTINGS 

127 

128 WITH ALL SWITCHES SET TO ZERO. THE PROGRAM WILL TYPE 

129 ALL ERRORS AND CONTINUE TESTING. 
130 

131 THE SWITCH SETTINGS ARE: 
132 

153 SW<15>-1 HALT ON ERROR 

134 SW<K> 1 LOOP ON TEST 

135 SW<13>"1 INHIBIT ERROR TYPEOUTS 

136 SW<11>-1 INHIBIT TEST ITERATIONS 

137 SW<10>-1 RING TTY BELL ON ERROR 

138 SW<09>-1 LOOP ON ERROR 
139 

HO 5.3 TEST SELECTION 

H1 

142 INDIVIDUAL TESTS ARE SELECTED IN RESPONSE TO THE 'ENTER 

143 TEST NUMBER : ' MESSAGE. ANY VALID TEST NUMBER CAN BE 

144 ENTERED. EACH ENTRY MUST BE TERMINATED BY A CARRIAGE 

145 RETURN (CR). THE LOOP ON TEST SWITCH. SW<14>. MUST BE SET 

146 TO ALL CONTINUOUS EXECUTION OF THE SELECTED TEST. 
147 

148 TO RUN ALL TESTS IN SEQUENCE. ENTER EITHER A '0' FOLLOWED 

149 BY A CARRIAGE RETURN OR A CARRIAGE RETURN BY ITSELF. THE 

150 PROGR.AM WILL THEN EXECUTE ALL TESTS IN SEQUENCE. 
151 

152 THE 'RUBOUT KEY' (RO) CAN BE USED TO DELETE THE LAST 

153 CHARACTER ENTERED. SUCCESSIVELY STRIKING THE RO KEY 

154 WILL DELETE CHARACTERS UNTIL THE PREVIOUS CHARACTERS HAVE 

155 BEEN DELETED. CHARACTERS DELETED BY THE RO KEY WILL BE 

156 TYPED AND WILL BE SEPARATED BY 'V FROM THE CHARACTERS 

157 ENTERED BY THE OPERATOR. 
158 

159 THE OPERATOR CAN DELETE AN ENTIRE ENTRY BY TYPING A 

160 'CONTROL U' . 
161 

162 5.4 TEST CABLE CONNECTION 

163 

164 TO TEST THE RM05/3/2 DUAL PORT OPTION WITH THIS PROGRAM. 

165 A SPECIAL TEST CABLE MUST BE USED. (THE TEST CABLE IS 

166 P/N: 7010507-02). THE TEST CABLE CONNECTS MASS8US A I MASS8JS 

167 B TOGETHER AT THE DRIVE BEING TESTED AND IS CONSTRUCTED SO 

168 THAT BIT 0 OF THE MASS8US UNIT SELECT LINES IS COMPLEMENTED. 
169 

170 WITH THE TEST CABLE CONNECTED TO THE DRIVE UNDER TEST, 

171 THE DRIVE APPEARS AS TWO UNITS ON THE MASSBUS: EACH PORT 
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i?2 OF THE RM05/3/2 WILL RESPOND TO A DIFFERENT MASSBUS ADDRESS. 
« 73 

174 THE ADDRESS OF EACH PORT WILL DEPEND UPON THE DRIVE'S 

175 ADDRESS PLUG. 
176 

177 THE PROGRAM WJLL TYPEOUT THE APPARENT ADDRESSES OF BOTH 

178 PORTS. (ONE PORT WILL HAVE THE ADDRESS OF THE DRIVE; THE 

179 OTHER PORT WILL HAVE THE ADDRESS DEVELOPED BY THE CABLE). 
180 

■jgl *********************************************************** 

182 * ANY OTHER DRIVE ON THE MASSBUS WHICH HAS AN ADDRESS IN • 

183 * CONFLICT WITH EITHER OF THE TEST ADDRESSES MUST BE 

184 * POWERED DOWN. 

■jg<j *********************************************************** 
186 

187 THE TEST CABLE CONNECTION TO THE DRIVE UNDER TEST WILL 

188 DEPEND ON WHICH PROCESSOR, RH11/RH70 IS TO TEST THE DRIVE. 

189 IF THE DRIVE IS TO BE TESTED BY THE PROCESSOR ON PORT A, 

190 CONNECT THE MASSBUS CABLE FROM THE RH11/RH70 TO J3 OF THE 

191 RM05/3/2 BACK PANEL, THEN CONNECT THE TEST CABLE (P/N: 7010507-0?) 

192 FROM J2 TO J7 OF THE BACK PANEL AND TERMINATE THE PORT B AT J6. 
193 

194 WHEN THE DUAL PORT TEST CABLE IS CONNECTED, THE ATTENTION 

195 BITS FOR PORTS A 6 B ARE ASSERTED IN THE SAME BIT POSITION 

196 WHEN 'RMAS * (ATTENTION SUMMARY REGISTER) IS READ. THE ATTENTION 

197 BIT POSITION IS DETERMINED BY THE ADDRESS OF THE DRIVE. 

198 THE ATTENTION BIT THAT APPEARS FOR THE DRIVE IS THE 

199 INCLUSIVE 'OR' OF THE PORT A & PORT B ATTENTION BITS. BECAUSE 

200 OF THIS. THE PROGRAM LOOKS AT ONLY THE ATTENTION BIT IN 

201 'RMDS' (DRIVE STATUS REGISTER) TO DETERMINE THE STATE 

202 OF THE SELECTED PORT'S ATTENTION BIT. 
203 

204 
205 

206 6. ERRORS 

207 

208 

209 WHEN THE PROGRAM ENCOUNTERS AN ERROR, THE ERROR ROUTINE IS 

?10 CALLED AND IF SW<13> IS NOT SET, THE ERROR MESSAGE PERTAINING 

211 TO THE ERROR WILL BE TYPED. EACH ERROR TYPEOUT WILL CONTAIN 

212 THE FOLLOWING: 
213 

214 A. AN ERROR MESSAGE 

215 B. A DATA HEADER LINE 

216 f . A DATA LINE CONTAINING: 

218 1. THE TEST NUMBER 



219 2. THE PC ( PROGRAM COUNTER VALUE) WHERE THE ERROR 

220 CALL WAS MADE 

221 3. CONTENTS OF THE APPROPIATE REGISTERS 
222 

m 

224 

225 MISCELLANEOUS 

226 

22 > 

228 M RESTRICTIONS 
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229 

230 TO RUN THIS PROGRAM. THE SYSTEM MUST HAVE EITHER A KWll-P 

?31 OR A KW11-L CLOCK. ADDITIONALLY. THE RM05/3/2 UNDER TEST 

232 MUST HAVE THE DUAL PORT TEST CABLE CONNECTED. 

233 

234 7.2 LIMITATIONS 

236 THIS PROGRAM DOES NOT TEST DATA TRANSFERS THROUGH EITHER 

237 PORT AND DOES NOT TEST THE DYNAMIC OPERATION OF THE DUAL 

238 PORT OPTION. 
239 

240 7.3 EXECUTION TIME 

241 

242 THE PROGRAM TAKES ABOUT 4 MINUTES PER PASS (DEPENDING ON 

243 OPERATOR INTERVENTION EFFICIENCY) . 
244 

245 7.4 REQUIRED TESTS 

246 

247 IF THE PROGRAM IS BEING EXECUTED IN SINGLE TEST MOuE, THE 

248 OPERATOR MUST CALL AND RUN THE FOLLOWING TESTS BEFORE OTHER 

249 TESTS ARE RUN: 
250 

251 A. TEST 2 AND TEST 3. THESE TESTS SET 'VV-A' AND 'VV-B* 

252 RESPEC T WELY. THESE TESTS MUST BE PERFORMED AT LEAST ONCE 

253 BEFORE TESTS A - 10 ARE RUN. 
254 

255 B. TEST 4 AND TEST 5. THESE TESTS DETERMINE AND STORE FOR 

256 LATER USE THE TIMEOUT ONE -SHOT VALUE MEASURED THROUGH 

257 EACH PORT. THESE TESTS MUST BE PERFORMED AT LEAST ONCE BEFORE 

258 TESTS 6-10 ARE RUN. 
259 

260 7.5 DISK SURFACE USAGE 

261 

262 THE DIAGNOSTIC DOES NOT USE ^HE DISK SURFACE. HOWEVER, THE 

263 DRIVE MUST BE CYCLED UP AND ON LINE FOR THE DIAGNOSTIC TO BE 

264 RUN. 
265 

266 7.8 LOOP ON ERROR OPTION 

267 

268 IF SW<09> IS SET, THE PROGRAM WILL LOOP ON A FAILING TEST 

269 UNTIL EITHER THE SWITCH IS RESET OR THE ERROR STOPS OCCURING. 

270 BECAUSE THE PROGRAM MUST RESET THE RM05/3/2 TO A KNOWN STATE 

271 BEFORE LOOPING ON THE ERROR, THE TEST FOR SW<09> IS PERFORMED 

272 AT THE END OF THE TEST - NOT AT THE POINT WHERE THE ERROR 

273 WAS DETECTED. 
274 

275 
276 
277 

278 8. TEST DESCRIPTIONS 

279 

280 

281 8. 1 METHOD USED TO VERIFY THAT DRIVE IS IN NEUTRAL 

282 

283 THE PROGRAM DETERMINES THE THE DRIVE IS IN NEUTRAL BY CHECKING 

284 THE CONTENTS OF THE DRIVE STATUS REGISTER (RMDS) THROUGH 

285 BOTH PORTS. THE PROGRAM MASKS OUT THE PORT DEPENDENT BITS 
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286 C 'ATA* t "VV') AND VERIFIES THAI CORRECT STATUS IS READ 

287 THROUGH BOTH PORTS. C THE CORRECT STATUS IS 'MOL * , 'PGM\ 

288 'DPR*, t 'DRY'.) IF NEITHER PORT SEES ALL ZEROS FROM 

289 RMDS, THE PROGRAM CONCLUDES THAT THE DRIVE IS IN NEUTRAL 

290 AND THAT ANY BIT DISCREPANCY BETWEEN PORTS INDICATES A 

291 FAILURE IN THE PATH FOR THAT BIT. 
292 

293 8.2 METHOD USED TO VERIFY THAT THE DRIVE HAS BEEN SEIZED 
294 

295 T^E PROGRAM VERIHES THAT THE DRIVE HAS BEEN SEIZED BY 

296 CHECKING THE DRIVE STATUS REGISTER (RMDS) THROUGH 

297 THE SEIZING PORT AND VERIFING THAT CORRECT STATUS IS 

298 SEEN. WHEN RMDS IS READ THROUGH THE OPPOSITE PORT , 

299 ZEROS SHOULD BE SEEN. IF BOTH CONDITIONS EXIST. (I.E.. 

300 THE OPPOSITE PORT). THE PROGRAM CONCLUDES THAT THE DRIVE 

301 HAS BEEN SEIZED BY THE SPECIFIED PORT. 
302 

303 
304 

305 TEST 1 DRIVE ACCESS TEST 
306 

307 VERIFY THAT THE DRIVE CAN BE ACCESSED THROUGH BOTH PORTS 
308 

309 A. SELECT DRIVE. VERIFY THAT THE DRIVE IS PRESENT. THAT THE 

310 DRIVE IS A DUAL PORT RM05/3/2. THAT THE DRIVE IS ONLINE (RMDS HAS 

311 * MOL ' . 'PGM* , 'DPR', ft 'DRY' BITS SET). AND THE THE DRIVE SERIAL 

312 NUMBER READ THROUGH BOTH PORTS IS THE SAME. 
313 

314 B. THE TEST IS REPEATED THROUGH BOTH PORTS. 

315 

316 

317 TEST 2 SET 'W FOR PORT A 
318 

319 SET VOLUME VALID 
320 

321 A. ISSUE A DRIVE CLEAR COMMAND THROUGH PORT A. 
522 

323 B. ISSUE A READIN PRESET COMMAND THROUGH PORT A. VERIFY 

324 THAT THE 'W BIT IS SET FOR PORT A. 
325 

326 C. ISSUE A RELEASE COMMAND THROUGH PORT A. VERIFY THAT 

327 THE DRIVE RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION 

328 BIT IS SET. 
329 

350 

351 TEST 3 SET 'VV* FOR PORT B 
332 

333 SET VOLUME VALID 
334 

335 A. ISSUE A DRIVE CLEAR COMMAND THROUGH PORT B. 
336 

337 B. ISSUE A READIN PRESET COMMAND THROUGH PORT B. VERIFY 

338 THAT THE ' VV BIT IS SET FOR PORT B. 
339 

340 C. ISSUE A RELEASE COMMAND THROUGH PORT B. VERIFY THAT 

341 THE DRIVE RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION 
?A2 BIT IS SET. 
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343 






344 






345 


TEST 


4 MEASURE THE TIMEOUT ONE-SHOT THROUGH PORT A 


346 






347 


MEASURE THE TIMEOUT ONE-SHOT VALUE THROUGH PORT A 


7/ Q 






349 


A. 


WRITE O'S INTO RMDS THROUGH PORT A AND VERIFY THAT THE 


350 




DRIVE HAS BEEN SEIZED. 


351 






l H 


B. 


WAIT FOR TIMEOUT TO OCCUR. MEASURE THE DURATION OF THE TIMEOUT 


353 




ONE-SHOT AND SAVE THE VALUE FOR LATER USE. 


354 
355 


C. 


VERIFY THAT THE TIMEOUT OCCURRED AND THAT THE DRIVE RETURNS 


356 




TO NEUTRAL 


357 






358 






359 


TEST 


5 MEASURE THE TIMEOUT ONE-SHOT THROUGH PORT B 


360 






361 


MEASURE THE TIMEOUT ONE-SHOT VALUE THROUGH PORT B 


362 






363 


A. 


WRITE OS INTO RMDS THROUGH PORT B AND VERIFY THAT THE 


364 




DRIVE HAS BEEN SEIZED. 


365 






366 


B. 


WAIT FOR TIMEOUT TO OCCUR. MFASURE THE DURATION OF THE TIMEOUT 


367 




ONE-SHOT AND SAVE THE VALUE FOR LATER USE. 


368 






369 


C. 


i*rn f r u that ti ir tt ur~ it r\ r /~ i ir~» r- r\ aim tiiat ti ir p«n f i/r nr ti intir 

VERIFY THAT THE TIMEOUT OCCURRED AND THAT THE DRIVE RETURNS 


370 




TO NEUTRAL 


371 






372 






373 


TEST 


6 TEST 'PORT SELECT' SWITCH. DRIVE CYCLED UP 


374 






375 


1 CO 1 


rut nDCDAT inw nc tuc 'onoT cci crj i ciiittu rnoiwc rvri en not 


376 






377 


A. 


SWITCH TO PORT 'A* POSITION. VERIFY THAT THE DRIVE IS IN 


378 




NEUTRAL AND THAT THE STATUS BITS IN RMDS. AS READ THROUGH BOTH 


379 




PORTS. ARE CORRECT. 


380 






381 


B. 


SWITCH TO PORT *8' POSITION. VERIFY THAT THE DRIVE IS IN 


382 




NEUTRAL AND THAT THE STATUS BITS IN RMDS. AS READ THROUGH BOTH 


383 




PORTS. ARE CORRECT. 


384 




385 


C. 


RETURN THE 'PORT SELECT' SWITCH TO THE 'A/8' POSITION. VERIFY 


386 




THE DRIVE STATE. 


387 






388 






389 


TEST 


7 TEST 'PORT SELECT' SWITCH LOCKED ON PORT A 


390 






391 


TEST 


THE OPERATION OF THE 'PORT SELECT' SWITCH (DRIVE CYCLED DOWN). 


392 






393 


A. 


CYCLE THE DRIVE DOWN. 


394 






395 


B. 


SWITCH TO PORT 'A' POSITION. VERIFY THAT THE DRIVE IS IN 


396 




NEUTRAL AND THAT THE STATUS BITS IN RMDS. AS READ THROUGH BOTH 


397 




PORTS. ARE CORRECT. 


398 




399 


C. 


SWITCH THE 'PORT SELECT' SWITCH TO A; CYCLE THE DRIVE UP. 
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400 




401 


D. 


"Wfc 




403 




404 




405 




406 




407 


r 

f m 


408 




409 




410 




411 




412 


G. 


413 




414 




415 




416 


TEST 


417 




418 


TEST 


419 




420 


A. 


421 




422 


B. 


423 




424 




425 




426 


c. 


427 




428 


D. 


429 




430 




431 


E . 


432 




433 




434 


F. 


435 




436 




437 




438 




439 


G. 


440 




441 




442 


H. 


443 


444 




445 


I. 


446 




447 




448 




449 





WHEN THE DRIVE CYCLES UP, VERIFY THAT 'VV-A IS RESET. AND 
THAT 'ATA-A IS SET. 

ISSUE A DRIVE CLEAR COMMAND AND A READIN PRESET COMMAND THROUGH 
PORT A. 

VERIFY THAT THE DRIVE CANNOT BE ACCESSED THROUGH PORT B AND 
'NED* SETS WHEN ATEMPTING TO ACCESS THE DRIVE THROUGH 
PORT B. ATTEMPT TO SET PORT REQUEST BY WRITING O'S 
INTO RMDS THROUGH PORT B. 

ISSUE A RELEASE COMMAND THROUGH PORT A. VERIFY THAT THE 
DRIVE REMAINS LOCKED ON PORT A. 



CYCLE THE DRIVE DOWN. 

SWITCH TO PORT '8' POSITION. VERIFY THAT THE DRIVE IS IN 

NEUTRAL AND THAT THE STATUS BITS JN RMDS. AS READ THROUGH BOTH 
PORTS. ARE CORRECT. 

SWITCH THE 'PORT SELECT' SWITCH TO B; CYCLE THE DRIVE UP. 

WHEN THE DRIVE CYCLES UP. VERIFY THAT 'VV-8 IS RESET. AND 
THAT 'ATA-6 IS SET. 

ISSUE A DRIVE CLEAR COMMAND AND A READIN PRESET COMMAND THROUGH 
PORT B. 

VERIFY THAT THE DRIVE CANNOT BE ACCESSED THROUGH PORT A AND 
'NED' SETS WHEN ATEMPTING TO ACCESS THE DRIVE THROUGH 
PORT A. ATTEMPT TO SET PORT REQUEST BY WRITING O'S 
INTO RMDS THROUGH PORT A. 

ISSUE A RELEASE COMMAND THROUGH PORT B. VERIFY THAT THE 
DRIVE REMAINS LOCKED ON PORT B. 

CYCLE THE DRIVE DOWN. CHANGE THE 'PORT SELFCT ' SWITCH TO 
A/B; CYCLE THE DRIVE UP. 

VERIFY THAT BOTH PORTS CAN ACCESS THE DRIVE , THAT BOTH ATTENTION 
BITS ARE SET. AND THAT BOTH 'VV* BITS ARE RESET. 
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1 

515 
516 



517 



518 

519 



001100 
104000 
000004 
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OPERATIONAL 
SWITCH 


SWITCH SETTINGS 
USE 


• 


15 


HALT ON ERROR 


* 


14 


LOOP ON TEST 


* 


13 


INHIBIT ERROR TYPEOUTS 


* 


11 


INHIBIT ITERATIONS 


• 


10 


BELL ON ERROR 


• 


9 


LOOP ON ERROR 



. S8TTL BASIC DEFINITIONS 

.••INITIAL ADDRESS OF THE STACK POINTER *•* 1100 *** 
STACK - 1100 

ERROR = EMT ; .-BASIC DEFINITION OF ERROR CALL 

SCOPE = IOT ; .-BASIC DEFINITION OF SCOPE CALL 



00001 1 
000012 
00001 5 
000200 
1 77776 
\7777b 
1 7777*. 
1 77772 
1 77570 
177570 



.-♦MISCELLANEOUS DEFINITIONS 



HT 
LF 
CR 

CRLF 
PS 

PSW-PS 

STKLMT 

PIRO 

DSWR 

DDISP 



11 
12 
15 
200 
177776 

177774 
\77772 
177570 
177570 



CODE FOR HORIZONTAL TAB 
CODE FOR LINE FEED 
CODE FOR CARRIAGE RETURN 
CODE FOR CARRIAGE RETURN-LINE 
PROCESSOR STATUS WORD 



FEED 



STACK LIMIT REGISTER 
PROGRAM INTERRUPT REQUES T REGISTER 
HARDWARE SWITCH REGISTER 
HARDWARE DISPLAY REGISTER 



000000 
000001 
000002 
000003 
000004 
000005 
000006 
000007 
000006 
000007 



.-•GENERAL PURPOSE REGISTER DEFINITIONS 



RO 
R1 
R2 
R3 
R4 
R5 
R6 
R7 
SP 
PC 



ZO 
X1 
Z2 
13 
Z4 
15 
16 
X7 
Z6 
X7 



GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
STACK POINTER 
PROGRAM COUNTER 



000000 
000040 



.-•PRIORITY LEVEL DEFINITIONS 

PRO 0 ; .-PRIORITY LEVEL 0 

PR1 40 .-.-PRIORITY LEVEL 1 
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SEO 001? 



000100 


PR2 


= 100 


; .-PRIORITY 


LEVEL 


2 


OOOHO 


PR 3 


- 140 


; .PRIORITY 


LEVEL 


3 


000200 


PR4 


= 200 


.-.PRIORITY 


LEVEL 


4 


000240 


PR 5 


240 


;;PRI0RITY 


LEVEL 


5 


000300 


PR6 


= 300 


;. PRIORITY 


LEVEL 


6 


000340 


PR 7 


= 340 


;;PRIORITY 


LEVEL 


7 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 
001000 
000400 
000200 
000100 
000040 



►"SWITCH REGISTER" SWITCH DEFINITIONS 



SW15 
SW14 
SW13 
SW12 
SW11 
SW10 
SW09 
SW08 
SW07 

SW06 = 

SW05 

SW04 

SW03 

SW02 

SW01 

SWOO 

SW9=SW09 
SW8=SW08 
SW7=SW07 
SW6=SW06 
SW5=SW05 
SW4=SW04 
SW3=SW03 
SW2-SW02 
SW1=SW01 
SWO=SWOO 



100000 

40000 

20000 

10000 

4000 

2000 

1000 

400 

200 

100 

40 

20 

10 

4 

2 

1 



; *DATA 
BIT15 
BIT14 
BIT13 
BIT12 
BIT11 
BIT10 
BIT09 
BIT08 
BIT07 
BIT06 
BIT05 
BIT04 
BIT03 
BIT02 
BIT01 
BITOO 
BIT9=BIT09 
BIT8=BIT08 
BIT7=8IT07 
BIT6-BIT06 
BIT5=BIT05 



BIT DEFINITIONS 
= 100000 
= 40000 
= 20000 
= 10000 
= 4000 
= 2000 
= 1000 
= 400 
= 200 
= 100 

- 40 
20 
10 

- 4 
= 2 

1 



(BITOO TO BJT15) 



fZRMSBO RM05/3/2 DU POR TST 2 
BASIC DEFINITIONS 

000020 
000010 
000004 
000002 
000001 



000004 
000010 
000014 
000014 
000014 
000020 
000024 
000030 
000034 
000060 
000064 
000240 

520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 



MACRO V 04.00 
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SCO 0013 



000100 
000200 
000400 
001000 
002000 
020000 
040000 
100000 



BIT4=8IT04 
BIT3=8IT03 
BIT2=8I T02 
BIT1=8IT01 
BIT0=8IT00 

;*8ASIC "CPU" TRAP VECTOR ADDRESSES 

ERRVEC = 4 ;;TIME OUT AND OTHER ERRORS 

RESVEC = 10 ; .-RESERVED AND ILLEGAL INSTRUCTIONS 

TBITVEC = 14 ;;"T" BIT 

TRTVEC = 14 ;; TRACE TRAP 

8PTVEC = 14 ; ; BREAKPOINT TRAP (BPT) 

IOTVEC = 20 ;; INPUT/OUTPUT TRAP (IOT) "SCOPE** 

PWRVEC = 24 ;;POWER FAIL 

EMTVEC = 30 ;; EMULATOR TRAP (EMT) **ERROR** 

TRAPVEt = 34 ;;"TRAP" TRAP 

TKVEC = 60 ; ; TTY KEYBOARD VECTOR 

TPVEC = 64 ; ; TTY PRINTER VECTOR 

PIRQVEC = 240 ; ; PROGRAM INTERRUPT REQUEST VECTOR 

.SBTTL RH/RM REGISTERS 

; CONTROL AND STATUS REGISTER 1 (RMCSD 



IE 

RDY 

A16 

A17 

PSU 

MCPE 

TRE 

SC 



100 

200 

400 

1000 

2000 

20000 

40000 

100000 



(BIT #6) 



INTERRUPT ENABLE 
READY (BIT #7) 
HIGH ORDER BUS ADDRESS 
HIGH ORDER BUS ADDRESS 
PORT SELECT (BIT #10) 
MASSBUSS PARITY ERROR (81 T 
TRANSFER ERROR (BIT #14) 
SPECIAL CONDITION (BIT #15) 



BIT 
BIT 



(BIT 
(BIT 

#13) 



#8) 
#9) 



.-WORD COUNT REGISTER (RMWC) 

;(EACH BIT IS CALLED BY BIT NUMBER) 

;BUS ADDRESS REGISTER (RMBA) 

; (EACH BIT IS CALLED BY BIT NUMBER) 

.•CONTROL AND STATUS REGISTER 2 (RMCS2) 



000001 


uo 


- 1 


UNIT SELECT (BIT #0) 


000002 


U1 


- 2 


•JNIT SELECT (BIT #1) 


000004 


U3 


= 4 


UNIT SELECT (BIT #2) 


000010 


BAI 


- 10 


BUS ADDRESS INCREMENT INHIBIT (BIT #3) 


000020 


PAT 


= 20 


MASSBUS PARITY TEST (BIT #4) 


000040 


CLR 


40 


•CLEAR (BIT #5) 


000100 


IR 


100 


INPUT READY (BIT #6) 


000200 


OR 


- 200 


•OUTPUT READY (BIT #7) 


000400 


MDPE 


400 


MASS BUS PARITY ERROR (61 T #8) 


001000 


MXF 


1000 


•MISSED TRANSFER ERROR (BIT #9) 


002000 


PGE 


2000 


•PROGRAM ERROR (BIT #10) 


004000 


NEM 


4000 


NON EXISTENT MEMORY (BIT #11) 


010000 


NED 


10000 


NON EXISTENT DRIVE (BIT #12) 


020000 


UPE 


20000 


UNI8US PARITY ERROR (BIT #13) 


040000 


UCE 


40000 


WRITE CHECK ERROR (81 T #14) 


100000 


DLT 


100000 


•DATA LATE iBI T #15) 



CZRMSBO RM05/3/2 Du «>OR TST 
RH/RM REGISTERS 



S58 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 



MACRO VtK.OO 
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592 
593 
594 



611 
612 
613 
**4 



000001 
000002 
000004 
000010 
000020 
000040 
004000 



stO 0014 



.DATA BUFFER REGISTER (RMDB) 

; (EACH BIT IS CALLED BY BP NUMBER) 

.S8TTL RM REGISTERS 

; CONTROL AND STATUS 1 REGISTER. (#00) 



GO 
FO 
F1 
F2 
F3 
F4 
DVA 



1 
2 
4 

10 
20 
40 

4000 



GO BIT (BIT #0) 
FUNCTION CODE BIT #1 
FUNCTION CODE BIT #2 
FUNCTION CODE BIT #3 
FUNCTION CODF BIT #4 
FUNCTION CODE BIT #5 
DEVICE AVAILABLE (BIT #11) 



;DRIVE STATUS REGISTER vRMDS) (#01) 



576 




;DF5 




1 DRIVE FORWARD 5*7SEC. vBI I #0) 


577 


000002 


OFF 20 






DRIVE FORWARD 20'ViEC. (BIT #1) 


578 


000004 


DIGS 




4 


DRIVE TO INNER GUARD BAND (BIT #2) 


579 


000010 


GRV 




10 


•GO REVERSE (BIT #3) 


580 


000020 


DL64 




20 


•DIFFERENCE LESS THAN 64 (BIT #4) 


581 


000040 


DE1 




40 


•DIFFERENCE EQUALS 1 (BIT #5) 


582 


000100 


vv 




100 


•VOLUME VALID (BIT #6) 


583 


000200 


DRY 




200 


DRIVE READY (BIT #7) 


584 


000400 


DPR 




400 


DRIVE PRESENT (BIT #8) 


585 


001000 


PGM 




1000 


PROGRAMABLE (BIT #9) 


586 


002000 


LBT 




2000 


•LAST SECTOR TRANSFERRED (BIT #10) 


587 


004000 


URL 




4000 


•WRITE LOCK (BIT #11) 


588 


010000 


MOL 




10000 


•MEDIUM ON-LINE (BIT #12) 


589 


020000 


PIP 




20000 


•POSITIONING OPERATION IN PROGRESS (BIT #13) 


590 


040000 


ERR 




40000 


•COMPOSITE ERROR (BIT #14) 


591 


100000 


ATA 




100000 


ATTENTION ACTIVE (BIT #15) 



.-ERROR REGISTER #01 (RMER1) (#02) 



595 


000001 


ILF 




1 


ILLEGAL FUNCTION (BIT #0) 


596 


000002 


ILR 




2 


•ILLEGAL REGISTER (BIT #1) 


597 


000004 


RMR 




4 


•REGISTER MODIFICATION REFUSED (BIT #2) 


598 


000010 


PAR 




10 


•PARITY ERROR (BIT #3) 


599 


000020 


FER 




20 


•FORMAT ERROR (BIT #4) 


600 


000040 


WCF 




40 


•WRITE CLOCK FAIL (BIT #5) 


601 


000100 


ECH 




100 


ECC HARD ERROR (BIT #6) 


602 


000200 


HCE 




200 


•HEADER COMPARE ERROR (BIT #7) 


603 


000400 


HCRC 




400 


•HEADER CRC ERROR (BIT #8) 


604 


001000 


AOE 




1000 


ADDRESS OVERFLOW ERROR (BIT #9) 


605 


002000 


IAE 




2000 


•INVALID ADDRESS ERROR (BIT #10) 


606 


004000 


WLE 




4000 


WRITE LOCK ERROR (BIT #11) 


607 


010000 


DTE 




10000 


DRIVE TIMING ERROR (BIT #12) 


608 


020000 


OPI 




20000 


•OPERATION INCOMPLETE (BIT #13) 


609 


040000 


UNS 




40000 


•DRIVE UNSAFE (BIT #14) 


610 


100000 


DCK 




100000 


DATA CHECK ERROR (BIT 15) 



.•MAINTAINABILITY REGISTER (RMMR1)(#03) 



000001 



DMD 



.•DIAGINOSTIC MODE (BIT #0) 
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SEQ 001 5 



615 

6 1 6 

617 

618 

619 

620 

621 

62* 

623 

624 

625 

626 

627 

628 

629 

630 

631 

632 

633 

634 

635 

636 

637 

638 

639 

640 

641 

642 

643 

644 

645 

646 

647 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 

661 

662 

663 

664 

665 

666 

667 

668 

669 

670 

671 



000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 



000001 
000002 
000004 
000010 
000020 
000040 
000 1 00 
000200 
000400 
004000 
020000 
040000 
100000 



000100 
000200 
000400 
001000 
002000 



000010 
000200 
002000 
004000 
010000 
020000 
100000 



000200 
002000 
004000 
010000 



;ATTENTI0N SUMMARY PSEUDO-REGISTER (RMA5) (#04) 



ATO 
ATI 
AT2 
AT3 
AT4 
AT5 
AT6 
AT7 



1 
2 
4 

10 

20 

40 

100 

200 



DEVICE 0 
DEVICE 1 
DEVICE 
DEVICE 
DEVICE 
DEVICE 
DEVICE 
DEVICE 



(BIT #0) 

(BIT #1) 

(BIT #2) 

(BIT #3) 

(BIT #4) 

(BIT #5) 

(BIT #6) 

(BIT #7) 



.•DESIRED SEC TOR/ TRACK ADDRESS REGISTER (RMDA) (#05) 
;(EACH BIT IS CALLED BY BIT NUMBER) 



.-DRIVE TYPE REGISTER (RMDT) (#06) 



DTOO 

DT01 

DT02 

DT03 

DT04 

DT05 

DT06 

DT07 

DT08 

DRO 

MOH 

TAP 

NBA 



- 1 

- 2 
= 4 

- 10 
= 20 
= 40 
= 100 
= 200 

- 400 
= 4000 
= 20000 

- 40000 
= 100000 



DRIVE TYPE NUMBER BIT 
DRIVE TYPE NUMBER BIT 



DRIVE TYPE NUMBER BIT 
DRIVE TYPE NUMBER BIT 
DRIVE TYPE NUMBER BIT 
DRIVE TYPE NUMBER BIT 
DFIVE TYPE NUMBER BIT 
DRIVE TYPE NUMBER BIT 8 
DRIVE TYPE NUMBER BIT 9 
DRIVE REQUEST REQUIRED (BIT #11) 
MOVING HEAD (BIT #13) 
TAPE DRIVE (BIT #14) 
NOT BLOCK ADDRESSED (BIT #15) 



; LOOK -AHEAD REGISTER (RMLA) (#07) 



SCO 
SC1 
SC2 
SC3 
SC4 



= 100 
= 200 
= 400 
= 1000 
= 2000 



SECTOR COUNT FIELD 
SECTOR COUNT FIELD 
SECTOR COUNT FIELD 
SECTOR COUNT FIELD 



0 (BIT #6) 

1 (BIT #7) 

2 (BIT #8) 

3 (BIT #9) 



SECTOR COUNT FIELD 4 (BIT #10) 



;RM ERROR REGISTER #2 (RMER2) (#10) 



DPE 
DVC 
L8C 
LSC 
IVC 
OPE 
SKI 



= 10 

200 
= 2000 
= 4000 
- 10000 
= 20000 
= 100000 



.•OFFSET REGISTER (RMOF) (#11) 



OFD 
HCI 
ECI 
FMT16 



= 200 

- 2000 
= 4000 

- 10000 



DATA PARITY ERROR (BIT #3) 
DEVICE CHECK (BIT #7) 
LOSS OF BIT CLOCK (BIT #10) 
LOSS OF SYSTEM CLOCK (BIT #11) 
INVALID COMMAND (BIT #12) 
OPERATOR ERROR (BIT #13) 
SEEK INCOMPLETE (BIT #14) 



OFFSET FORWARD (BIT #5) 
HEADER COMPARE INHIBIT (BIT # 1 0) 
ERROR CORRECTION CODE INHIBIT (BIT 
FORMAT BIT (BIT #12 



.•DESIRED CYLINDER ADDRfcSS (RMDC) (#12) 
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RM REGISTERS 








673 




674 




675 




X "*X 

676 




677 




X TO 

673 




6"9 




680 




£ Q1 

DO I 




X O ^ 

682 




683 




684 




/Of 

685 


000000 


686 


000002 


687 


AAAAA/ 

000004 


688 


AAAAAi 

000006 


689 


AAAA 1 A 

0000 10 


690 


AAAA1 "5 

0000 i 2 


691 


000014 


692 


AAAA1 X. 

0000 I 6 


693 


AAAA^A 

000020 


69*i 


AAAA 

000022 


&95 


AAAA1/ 

000024 


696 


AAAA *}X 

0000Z6 


r>9f 


0UUU5U 


698 


AAAA 7 "5 

00005? 


/Art 

699 


AAAA 2/ 

UU0054 


700 


AAAA/ A 

000040 


r0 1 


AAAA/ 1 

00U0-W 


702 


000044 


703 


000046 


/04 





SEQ 0016 



.(EACH BIT IS CALLED BY BIT NUMBER) 

.•SERIAL NUMBER REGISTER (RMSN) (#14) 
.-(EACH IS CALLED BY BIT NUMBER) 

;ECC POSITION REGISTER (RMEC1) (#16) 
.-(EACH BIT IS CALLED BY BIT NUMBER) 

;ECC PATTERN REGISTER (RMEC2) (#17) 
; (EACH BIT IS CALLED BY BIT NUMBER) 



. JO 1 1 L 


DEFINITIONS OF THE RH/RM ADDRESS INDEXES 




- 


0 


CONTROL AND STATUS REGISTER #1 (DRIVE REG. 00) 






2 


WORD COUNT REGISTER (NOT A DRIVE REG) 


RMBA 




4 


UNIBUS ADDRESS REGISTER (NOT A DRIVE REG) 


RMDA 




6 


DESIRED SECTOR/TRACK ADDRESS REGISTER (DRIVE REG. OS) 


RMCS2 




10 


CONTROL AND STATUS REGISTER #2 (NOT A DRIVE REG) 


RMDS 




12 


DRIVE STATUS REGISTER (DRIVE REG L>1) 


RMER1 




14 


ERROR REGISTER #1 (DRIVE REG. 02) 


RMAS 




16 


ATTENTION SUMMARY PSEUDO REGISTER (DRIVE REG. 04) 


RMLA 




20 


LOOK AHEAD REGISTER (DRIVE REG. 07) 


RMDB 




22 


DATA BUFFER REGISTER (NOT A DRIVE REG.) 


RMMR1 




24 


•MAINTAINABILITY REGISTER (DRIVE REG. 03) 


RMDT 




26 


DRIVE TYPE REGISTER (DRIVE REG. 06) 


RMSN 




30 


•SERIAL NUMBER REGISTER (DRIVE REG. 10) 


RM0F 




32 


•OFFSET REGISTER (DRIVE REG. 11) 


RMDC 




34 


•DESIRED CYLINDER ADDRESS REGISTER (DRIVE REG. 12) 


RMMR2 




40 


•MAINTENANCE REGISTER #2 (DRIVE REG. 14) 


RMER2 




42 


ERROR REGISTER »2 (DRIVE REG. TO 


RMEC1 




44 


•ECC POSITION REGISTER (DRIVE REG. 16) 


RMEC2 




46 


•ECC PATTERN REGISTER (DRIVE REG. 17) 



CZRMSBO RM05/3/2 Du °OR * ST 2 
TRAP CATCHER 



1 



000000 



000174 
000174 oooooo 
000176 OOOOOO 



. 000200 000137 001766 

3 000204 000137 001774 
4 



000210 

000046 
000046 01 3366 

000052 
000052 020000 

000210 



E 2 
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.S8TTL TRAP CATCHER 
.=0 

•ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A 1 '. *2.HAL T" 
•SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
•LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
.=174 



DISPREG: .WORD 0 
SWREG: .WORD 0 

.S8TTL STARTING ADDRESS (ES) 
JMP a*START 
JMP 3*START1 

. S8TTL ACT 11 HOOKS 



.-.•SOFTWARE DISPLAY REGISTER 
;; SOFTWARE SWITCH REGISTER 



;;JUMP TO STARTING ADDRESS OF PROGRAM 
.•START AND CHANGE THE RH/RM ADDRESS 



0017 



-■*«*****»**»»»*»»»*************»*»*»***»***********»«»**»♦*»»*«» 

[•HOOKS REQUIRED BY ACT1 T 

$SVPC=. ; SAVE PC 

.=46 

SEND AD ;;1)SET L0C.46 TO ADDRESS OF SENDAD IN .$EOP 

. 52 

.WORD 20000 ;;2)SET LOC.52 TO 20000 

,=$SVPC ;; RESTORE PC 
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SEQ 0018 



001100 

oonoo 

001102 
001103 
001104 
001106 
001110 
001112 
001 114 
001 1 1 5 
001116 
001120 
001 122 
001124 
001 1 26 
001 1 30 
001 1 32 
001134 
001135 
001 1 36 
001140 
001142 
001144 
001146 
001150 
001152 
001154 
001155 
001156 
001157 
001160 

001162 
001164 
0C1166 
001170 
001 1 72 
001174 
001176 
001200 
001202 
001206 
00' 20? 
001210 



001100 

000000 
000 
000 
000000 
000000 

oooooc 

000000 
000 
001 
000000 
000000 
000000 
000000 
000000 

cooooo 

000000 
000 
000 
000000 
177570 
177570 
177560 
177562 
1 77564 
177566 
000 
002 
012 
000 
000000 

000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
207 
077 
015 
012 



377 
000 



SSTTL 

• JO 1 1 L. 


COMMON 


TAGS 


• *THIS 


TABLE CONTAINS 


• *USED 


IN THE PROGRAM 




.-1100 




SCMTAG 






SPASS: 


.WORD 


0 


STSTNM 


-BYTE 


0 


SERFLG 


.BYTE 


0 


SICNT: 


• WORD 


0 


$LPADR 


.WORD 


0 


SLPERR 


.WORD 


0 


SERTTL 


WORD 


0 


SITEMB 


.8YTE 


0 


SERMAX 


.8YTE 


1 


SERRPC 


• WORD 


0 


SGDADR 


.WORD 


0 


S6DADR 


.WORD 


0 


SGDDAT 


.WORD 


0 


S6DDAT 


.WORD 


0 




.WORD 


0 




.WORD 


0 


SAUT08 


.8YTE 


0 


tINTAG 


.BYTE 


0 




.WORD 


0 


SWR: 


.WORD 


DSWR 


DISPLAY: .WORD 


DDISP 


$TKS: 


1 77560 




$TK8: 


1 77562 




$TPS: 


1 77564 




$TP8: 


177566 




$NULL : 


.BYTE 


0 


SFILLS 


.BYTE 


2 


SFILLC 


• .BYTE 


12 


STPFLG 


• .BYTE 


0 


SPEGAD 


.WORD 


0 


SREGO: 


.WORD 


0 


STMPO: 


.WORD 


0 


STMP1 : 


. WORD 


0 


JTMP2: 


.WORD 


0 


$ TMP3 : 


.WORD 


0 


STMP4: 


.WORD 


0 


STIMES 


■ 0 




$ESCAFE:0 




S8ELL: 


.ASCIZ 


<207> 


SQUES. 


.ASCII 


/?/ 


SCRLF : 


.ASCII 


<15> 


$LF: 


.ASCIZ 


<12> 



START OF COMMON TAGS 
CONTAINS PASS COUNT 
CONTAINS THE TEST NUMBER 
CONTAINS ERROR FLAG 
CONTAINS SUBTEST ITERATION COUNT 
CONTAINS SCOPE LOOP ADDRESS 
CONTAINS SCOPE RETURN FOR ERRORS 
CONTAINS TOTAL ERRORS DETECTED 
CONTAINS ITEM CONTROL BYTE 
CONTAINS MAX. ERRORS PER TEST 
CONTAINS PC OF LAST ERROR INSTRUCTION 
CONTAINS ADDRESS OF * GOOD ' DATA 
CONTAINS ADDRESS OF 'BAD' DATA 
CONTAINS 'GOOD' DATA 
CONTAINS 'BAD' DATA 
RESERVED — NOT TO BE USED 

.•AUTOMATIC MODE INDICATOR 
.•INTERRUPT MODE INDICATOR 

ADDRESS OF SWITCH REGISTER 
ADDRESS OF DISPLAY REGISTER 
TTY KBD STATUS 
TTY KBD BUFFER 

TTY PRINTER STATUS REG. ADDRESS 

TTY PRINTER BUFFER REG. ADDRFSS 

CONTAINS NULL CHARACTER FOR FILLS 

CONTAINS # OF FILLER CHARACTERS REQUIRED 

INSERT FILL CHARS. AFTEP A "LINE FEED" 

"TERMINAL AVAILABLE" FLAG (BIT<07> 0 YES) 

CONTAINS THE ADDRESS FROM 

WHICH (SREGO) WAS OBTAINED 

CONTAINS ( ($REGAD)+0) 

USER DEFINED 

USER DEFINED 

USER DEFINED 

USER DEFINED 

USER DEFINED 

MAX. NUMBER OF ITERATIONS 
ESCAPE ON ERROR ADDRESS 
CODE FOR BELL 
QUESTION MARK 
CARRIAGE RETURN 
LINE FEED 
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.S8TTL 


00". 21 2 


1 72540 


SLKCSR: 


001 214 


172542 


SIKCS8: 


001216 


000104 


SIPVEC: 


001220 


1 77546 


SlKS: 


001222 


000100 


SLLVEC: 


001 2?4 


000000 


PORTA: 


001226 


000000 


PORTS : 


001230 


000000 


PORTC: 


001232 


000000 


ASR1 : 


001234 


000000 


PTNBR: 


001236 


000000 


SEIZPT: 


001240 


000000 


OPPRT : 


001242 


000000 


TSTNUM: 


001244 


000000 


CKERR: 


001246 


000000 


NOSEIZ: 


001250 


000000 


RELERR: 


001252 


ooocoo 


TIME : 


001254 


000000 


WATCH: 


iVM ">C^. 


oououo 


T T MC A > 


001260 


000000 


TIMEAP: 


AA1 "5^ ^ 

00l?62 


p AAA A A 

oooooo 


t T urn . 

T 1ME8: 


001264 


oooooo 


TIME BP: 


001 ?66 


oooooo 


KY8CTL: 


001270 


oooooo 


CHGADR: 






. S8TTL 


001272 


1 76700 


SRMADR : 


001 274 


000254 


SRMVEC: 



USER DEFINED TAGS 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
• WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



172540 
172542 
104 

177546 
100 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 



SEQ 0019 



ADDR Of KW11-P STATUS REGISTER 

ADDR OF KW11-P COUNTER BUFFER 

ADDR OF KW11-P VECTOR 

ADDR OF KWll-L STATUS REGISTER 

ADDR OF KWll-L VECTOR 

ADDRESS OF PORT A 

ADDRESS OF PORT B 

ADDRESS OF DIFFERENT DRIVE 

AT A- A OR ATA-fi = 1 

CONTAINS THE PORT ADDRESS FOR ERROR TYPEOU1S 

CONTAINS 1HE ADDRESS OF THE SEIZING PORT 

CONTAINS THE ADDRESS O c THE 'OPPOSITE' PORT 

NUMBER OF THE CURRENT TEST 

IF -1. A REGISTER MISCOMPARISON OCCURRED 

IF -1. THF PORT IN 'SEIZPT' DID NOT SEIZE THE DRIVE 

IF -1. THE PORT IN 'SEJZPT' DID NOT RELEASE THE DRIVE 

ELAPSED TIME COUNTER 

WATCH DOG TIMER LOCATION 

THE TIMEOUT ONE-SHOT VALUE MEASURED THROUGH PORT A 
PORT A TIMEOUT VALUE ♦ 25X 

THE TIMEOUT ONE-SHOT VALUE MEASURED THROUGH PORT B 

PORT B TIMEOUT VALUE ♦ 25% 

SINGLE TEST INDICATOR 

CHANGE THE RH/RM ADDRESS INDICATOR 



RH/RM UNIBUS AND VECTOR ADDRESSES 



.WORD 
.WORD 



176700 
25<, 



; RH/RM UNIBUS ADDRESS 

; INTERRUPT VECTOR ADDRESS 



fZRMSBO RM05/3/? DJ 
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.S8TTL ERROR POINTER TABLE 



SCO 0020 



•THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

•THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

•LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 

•NOTE1: IF SITEMB IS 0 THE ONLY PERTINENT DATA IS (SERRPO. 

•NOTE 2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 

EM .-.-POINTS TO THE ERROR MESSACE 

DH POINTS TO THE DATA HEADER 

DT .-.-POINTS TO THE DATA 

DF ; .-POINTS TO THE DATA FORMAT 



1 
? 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
■if) 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
AO 
41 
42 



001 276 



001276 
0C1 300 
001 302 
001 304 



001 306 
001310 
001312 
001314 



001316 
001 320 
001 322 
001324 



001 326 
001330 
0C1332 
001334 



001336 
001 340 
001342 
001 344 



001346 
001 350 
001352 
001354 



020501 
023244 
024614 
025034 



020547 
023315 
024630 
025041 



020570 
023244 
024614 
025034 



020642 
023315 
024630 
025041 



020664 
0233^1 
024646 
025047 



020746 
023440 
024662 
025054 



SERRT8: 
; ERROR 1 



EM1 
DH1 
DT1 
DF 1 



; ERROR 2 



EM2 

DH2 
DT2 
DF2 



.-ERROR 3 



EM3 
DH1 
DT1 
DF 1 



; ERROR 4 



EM4 

DH2 
DT2 
DF2 



; ERROR 5 



EM5 
DH5 
DT 5 
DF 5 



.-ERROR 6 



EM6 

DH6 
DT6 
DF6 



.-DRIVE IS NON-EXISTENT ( 'NED ' BIT SET) 



;WRONG DRIVE TYPE 



;PORT SELECT SWITCH ON DRIVE NOT IN 'A/8' 



; DRIVE NOT ON LJNE 



:SERIA U NUMBER READ THROUGH EACH PORT NOT THE SAME 



TIMEOUT HAS NOT OCCURRED WITHIN 2 SECONDS 



JRMSBO RMC5/3/2 Dl W TST 2 
ERROR POINTER TABlE 



MACRO V04-00 4-APR-81 



43 
<,4 
45 

46 001356 

47 001360 

48 001362 

49 001364 
50 

51 
52 

53 001366 

54 00 1370 

55 001372 

56 001374 

58 

59 

60 001376 

61 001400 

62 0C1402 

63 001404 
64 

65 
66 

67 001406 

68 001410 

69 001412 

70 001414 
71 

72 
73 

74 001416 

75 001420 

76 001422 

77 001424 
78 

79 
80 

81 001426 

82 001430 

83 001432 

84 0C1434 
85 

86 
87 

88 001436 

89 001440 

90 001442 

91 001444 
92 

93 
94 

95 001446 
96 

97 001450 

98 001452 

99 001454 



021020 
023467 
024672 
025057 



021065 
023244 
024614 
025034 



021153 
023244 
024614 
025034 



021220 
02324*. 
024614 
025034 



021267 
023534 
024704 
025054 



021354 
023611 
0247K 
025063 



021436 
023244 
024614 
025034 



021522 

023534 
024704 
025054 



; ERROR 7 



EM7 

DH7 
DT7 
Of 7 



; ERROR 10 



EM10 
DH1 
DTI 
DF1 



.-ERROR 11 



EM11 
DH1 
DT1 
DM 



; ERROR 12 



EM12 
DH1 
DM 
DF1 



; ERROR 13 



EM13 
DH13 
DT13 
OF 6 



.-ERROR 14 



EMU 
DHH 
DT14 
DF14 



; ERROR 15 



EM15 
0H1 
DTI 
DF1 



; ERROR 16 



EM16 

DH13 
DT13 
DF6 



! 2 
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.-TIMEOUT ONE-SHOT IS LESS THAN 500 MS 



; READ IN PRESET DOES NOT SET VOLUME VALID FOR 'HE POR T 



'GO' BIT RESET DURING UNLOAD COMMAND 



; INCORRECT STATUS DURING UNLOAD COMMAND 



;DRIVE DID NOT RETURN TO NEUTRAL AFTER UNLOAD COMMAND 



;ATTENTION BIT SET ON 'OP D OSITE PORT* AFTER UNLOAD 



.•ATTENTION BIT NOT SET ON PORT WHICH ISSUED 'UNLOAD' 



; DRIVE NOT IN NEUTRAL AFTER UNLOAD WITH 'PORT 
; SELECT ' SWITCH MOVED FROM *A/B' 



SEO 0021 



ZRMSBO RM05/3/2 DU POR 1ST 2 
fRROR POINTER TAStE 



MACRO V04.00 4-APR-81 



100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

11? 

114 

115 

116 

l'7 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

139 
140 
141 
142 
H3 
144 
145 
146 
147 
148 
140 
158 



001456 
001460 
00H62 
001464 



001466 
001470 
001472 
00H74 



001476 
001 500 
001 502 
001504 



001 506 
001510 
001512 
0015K 



001516 
001520 
001522 
001524 



001526 
001530 
001532 
0C1534 



001536 
001540 
001542 
001544 



001546 
001550 
00^552 
001554 



021641 
023730 
024732 
025071 



021724 
023730 
024732 
025071 



022007 
023244 
024614 
025034 



022060 
023244 
024614 
025034 



022156 
023244 
024614 
025034 



022251 
023^47 
024740 
025057 



022331 
024052 
024752 
025073 



000000 
000000 
000000 
000000 



; ERROR 17 



EMI 7 
DH17 
DT17 
DF17 



; ERROR 20 



EM20 
DH17 

DT17 
DF17 



.-ERROR 21 



EM21 
DH1 
DTI 
DM 



.•ERROR 22 



EM22 
DH1 
DT1 
DF1 



.-ERROR 23 



EM23 
DH1 
DT1 
DF1 



: ERROR 24 



EM24 
DH24 
DT24 
DF7 



.-ERROR 25 



EM25 
DH25 
DT25 
DF25 



; ERROR 26 

0 
0 
0 
0 
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SEO 0022 



; DRIVE LOCKED ON PORT 'A' BY SWITCH WHILE CYCLED UP 



.-DRIVE LOCKED ON PORT '8* BY SWITCH WHILE CYCLED UP 



.■STATUS INCORRECT FOR PORT AFTER CYCLE UP 



.-REGISTER CONTENTS SEEN WHEN DRIVE SWITCHED ON 'OPPOSITE' PORT 



; 'NED ' SET WHEN RMDS ACCESSED THROUGH PORT NOT SWITCHED 



; DRIVE SWITCHED TO LOCKED OUT PORT WHEN RELEASED/ 



; RH/RM DIDN'T RESPOND TO ADDRESSING 



.-UNUSED ERROR MESSAGES 



rZRMSBO RM05/3/2 DU TST 2 MACRO V04.00 4-APR-81 
ERROR POIMTFR TABLE 

; ERROR 27 





001556 


000000 




0 




001560 


000000 




0 




001562 


000000 




0 




001564 


000000 




0 


159 






.-ERROR 


30 


160 








EM30 


16 1 


001566 


022374 




1 62 


001570 


024061 




DH30 


163 


001572 


024756 




0T30 


164 


001 574 


025074 




DF30 


^65 








31 


166 






; ERROR 


167 










168 


001576 


022425 




EM31 


169 


001600 


023315 




DH2 


170 


001602 


024630 




DT2 


171 


0C1604 


025041 




DF2 


172 










173 






; ERROR 


32 


174 










175 


001606 


022473 




EM32 


176 


001610 


023315 




DH2 


177 


001612 


024630 




DT2 


178 


001614 


025041 




DF2 


179 










180 






.-ERROR 


33 


181 










182 


001616 


022523 




EM33 


183 


001620 


023244 




DH1 


184 


001622 


024614 




DTI 


185 


001624 


025034 




DF1 


186 










187 






; ERROR 


34 


1B8 










189 


001626 


022607 




EM34 


190 


001630 


024203 




DH34 


191 


001632 


024776 




DT34 


192 


001634 


025103 




DF34 


193 








35 


194 






.-ERROR 


195 










196 


001636 


022656 




EM35 


197 


001640 


024277 




DH35 


198 


001642 


025010 




DT35 


199 


001644 


025057 




DF7 


200 










201 






.-ERROR 


36 


202 










203 


001646 


022743 




EM36 


204 


001650 


024277 




DH35 


205 


001652 


025010 




DT35 


206 


001654 


025057 




DF7 


207 










208 






; ERROR 


37 



K 2 
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.-UNUSED ERROR MESSAGES 



;DRj VE NOT SEIZED BY PORT 'N' 



; WRONG STATUS SEEN 8Y THE SEIZING PORT 



.-REGISTER CONTENTS INCORRECT 



.-CONTROL BUS PARITY ERROR WHILE READING REGISTER 



.•CAN'T ACCESS DRIVE THROUGH EITHER PORT 



; DRIVE NOT IN NEUTRAL AFTER RELEASE „ REQUEST NOT SET 



.-DRIVE NOT IN NEUTRAL AFTER TIMEOUT , REQUEST NOT SET 



'7RMS80 RM05/3/2 Du POP 
ERROR POINTER TABlE 



TST 2 *AC»0 104.00 4 -APR -81 
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SfO 0024 



209 




210 001656 


023030 


211 001660 


024374 


212 001662 


024756 


213 001664 


025074 


2H 




215 




216 




217 001666 


023111 


218 001670 


024516 


219 001672 


025022 


220 001674 


025057 


221 




let 




223 




224 001676 


023166 


225 001700 

226 001702 


024061 


024756 


227 001 704 


025074 


228 





EM37 
DH37 
DT30 
DF 30 



.•ERROR 40 



EM40 
DH40 
DT40 
DF 7 



.-ERROR 41 



EM41 

DH30 
DT30 
DF30 



.■REGISTER CONTENTS INCORRECT AFTER RELEASE n IME OUT 



;DRWE NOT SEIZED Br PORT AFTER RELEASE WITH REQUEST SET 



REGISTER WRONG AFTER RELEASE WITH REQUEST SET 



CZRMSBO RM05/3/2 DU PQR T ST 
ERROR POINTER TABLE 



1 



2 MACRO V04.00 



W 2 

4-APR-81 18:08:36 PAGE 9 



2 








3 


001706 


011600 




4 


001710 


005740 




5 


001712 


022626 




6 


001 714 


104401 


001722 




001720 


000417 






001760 






7 


001760 


010046 




8 


001762 


104402 




9 


001764 


000240 




10 








11 








12 








13 








14 


001766 


005037 


001270 


15 


001772 


000403 




16 








1 7 


001 774 


01273/ 


177777 


18 








19 


002002 


000240 




20 


002004 


005227 


000000 


21 


002010 


001375 




22 


00201 2 


0C0005 




23 








24 










002014 


012706 


001100 




002020 


005026 






002022 


022706 


001140 




002026 


001374 






002030 


012706 


001100 



002034 
002042 
002050 
002056 
002064 
002072 
002100 
OC2106 
002112 
002116 
002124 
002132 



002140 
002144 
002152 
002160 
002166 
002174 

002176 
002200 



012737 
012737 
012737 
012737 
012737 
012737 
013737 
005037 
005037 
112737 
012737 
012737 



013746 
012737 
012737 
012737 
022777 
001012 

000403 
012716 



013620 
000340 
014202 
000340 
017540 
000340 
013224 
001 1 76 
001200 
000001 
002124 
002132 



000004 
002200 
177570 
17^570 
177777 



002206 



SEO 0025 



001270 



000020 
000022 
000030 
000032 
000034 
000036 
013216 



001 1 1 5 
001106 
001110 



000004 
001140 
001 H2 
1 76744 



.-THIS ROUTINE HANDLES UNEXPECTED TIMEOUTS 



BAD TWO: MOV 
TST 



;;65$: 
64$: 



.S8TTL 
START: 

START1 : 
START2: 



CMP 

TYPE 

BR 

.ASCJZ 

MOV 

TYPOC 
NOP 



(SP).RO 
-(RO) 

(SP)*.(SP>* 
.65$ 
64$ 



SAVE PC WHERE THE TIME OUT OCCuRED 

ADJUST PC -2 

RESTORE STACK POINTER 

; TYPE ASCIZ STRING 

.GET OVER THE ASCIZ 



<CRLF>/UNEXPECTED BUS TIMEOUT. PC=/ 



RO.-(SP) 



START OF PROGRAM 



CLR 
BR 

MOV 

NOP 
INC 
BNE 
RESET 



CHGADR 
START2 

*-1 .CHGADR 



*0 
.-4 



.-SETUP FOR TYPING OUT PC 

;PUT 'HALT(O)' INSTRUCTION HERE IF YOU WISH 
;TQ STOP ON UNEXPECTED TIMEOUT. 



.-CLEAR THE ' CHANGE RH/RM ADDRESS ' INDICATOR 
;G0 TO THE START 

.-SET THE 'CHANGE RH/RM ADDRESS' INDICATOR 



TTY LOOP. WAIT FOR INCREMENT 
OF WORD 

CLEAR THE WORLD 



.S8TTL 
;; CLEAR 



INIT 
THE 
MOV 
CLR 
CMP 
BNE 
MOV 

;; INITIALIZE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
CLR 
M0V8 
MOV 
MOV 
;.SI2E FOR A 
;; EQUAL TO A 
MOV 
MOV 
MOV 
MOV 
CMP 
BNE 



IALIZE THE COMMON TAGS 
COMMON TAGS ($CMTAG) AREA 



FIRST LOCATION TO BE CLEARED 
CLEAR MEMORY LOCATION 
DONE? 

LOOP BACK IF NO 

SETUP THE STACK POINTER 



*$CMTAG.R6 
(R6) + 
#SWR.R6 
.-6 

*STACK.SP 
FEW VECTORS 

#$SCOPE,a#IOTVEC ;;IOT VECTOR FOR SCOPE ROUTINE 
*340.a#I0TVEC+2 ; .-LEVEL 7 

*$ERR0R.3#EMTVEC ;;EMT VECTOR FOR ERROR ROUTINE 
#340.a#EMTVEC+2 ;; LEVEL 7 

*$TRAP.a#TRAPVEC ;;TRAP VECTOR FOR TRAP CALLS 
LEVEL 7 

SETUP END-OF -PROGRAM COUNTER 
INITIALIZE NUMBER OF ITERATIONS 
CLEAR THE ESCAPE ON ERROR ADDRESS 
ALLOW ONE ERROR PER TEST 
INITIALIZE THE LOOP ADDRESS FOR SCOPE 
SETUP THE ERROR LOOP ADDRESS 
HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
-1", SETUP FOR A SOFTWARE SWITCH REGISTER. 



*340,3*TRAPVEC+2 
$ENDCT,$EOPCT 
$TIM£S 
$ESCAPE 
#1 ,$ERMAX 
#..$LPADR 
#..$LPERR 



64$: 



BR 
MOV 



a»ERRVEC,-(SP) 

#64$.3#ERRVEC 

*D SWR, SWR 

*DD ISP, DISPLAY 

#-1.3SWR 

66$ 

65$ 

#65$. (SP) 



SAVE ERROR VECTOR 
SET UP ERROR VECTOR 
SETUP FOR A HARDWARE SWICH REGISTER 
AND A HARDWARE DISPLAY REGISTER 
TRY TO REFERENCE HARDWARE SWR 
BRANCH IF NO TIMEOUT TRAP OCCURRED 
AND THE HARDWARE SWR IS NOT - -1 
BRANCH IF NO TIMEOUT 
SET UP FOR TRAP RETURN 



CZRMSBO RM05/3/2 DU POR TST 2 
INITIALIZE THE COMMON TAGS 
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SEQ 0026 



fVOPftZ. 


UvuWc 




UvCCUO 


m P7X7 


Uvv I f O 


\JMCC l*» 


m P7X7 
U I CI Jf 


nnni 7z. 


002222 


012637 


000004 


P^ 






PA nnPPPA 

<:o Wjccco 


m P717 


uv 1 < vo 


P7 fVOPTZ. 


m P7X7 

\J\C.( Jl 


nrmxnn 

UUUjvU 


5ft 

CO 






'JQ 
t ' 






002242 


005227 


}77777 


002246 


001037 




002250 


022737 


01 3366 


UUct JO 


001/.XX 

Uv 1 *♦ 33 




hoppaO 




nnppAA 

UUctOO 


UvccO** 


nnnz. xn 

UVv*» 3v 




00PX4A 






oopxaa 


0057X7 

UvJ f J I 


0000AP 
vvvvHc 


nnpxsp 


nm ooa 

vv I wu 




oopxsa 


C\7"K777 
\Jcji ci 


001 140 


oopxap 
uuc joe 


nm nos 










o0px*>> 


0004OX 




oopx70 


1 1 P7X7 
i it' jf 


000001 

vvvvv 1 


00PX7*. 






30 






xi 00PX7*. 


004 7X7 

f J f 


01 A.044 


xp 00P40P 


00£ 7X7 

WH I Jf 


OOP 774 

VVC ' f H 


xx oop40a 




01 7c : >P( ,: > 

V 1 f DtD 


x^ oop^ip 


10^41P 




xs oopz.14 


01 PM7 


001 PP4 
vU 1 Cc S 


xa oop4po 


vc jf c i 


001 PP4 

VV 1 LtH 


X7 OOPAPA 






XR oopaxo 

JO Uvc*OU 


1 041.01 


01 7A'> , > 


XO 00P4X4 


ooo7*o 

vvvf Ow 




z>o nnptXA 


01 X7X7 

VI Jf Jr 


001 PP4 

VV ItCl 


41 002444 


005237 


001226 


42 002450 


042737 


000016 


<.x noP4SA 


01 X74A. 

V 1 J f HO 


O01 PP4 

VV 1 C cS 


44 oop4*.p 


04P71A 

VM C f 1 O 


1 77771 

l f I f f 1 


4*» 00P4AA 


05PAX7 


wv 1 CCD 


SO Wet i c 


104401 


01 7700 


47 002476 


013746 


001224 


OOP SOP 

WC JVC 


10440X 




00P504 


001 

VV 1 






000 




48 002506 

~U vvL v>J 


104401 


017727 


49 002512 


013746 


001226 


002516 


104403 




002520 


001 




002521 


000 




50 002S22 


' 04401 


001207 



001140 
001142 



000004 
000006 



000042 



65$: 
66$: 



RTI 
MOV 
MOV 
MOV 



fSWREG.SWR ; ; POINT TO SOFTWARE SWR 

#DISPREG. DISPLAY 

(SP) + .arERRVEC ; .-RESTORE ERROR VECTOR 



; SETUP '7IME0UT" TRAP VECTOR FOR UNEXPECTED BUS TIMEOUTS 

MOV *8ADTM0.ERRVEC ;SETUP FOR UNEXPECTED TIMEOUT 
MOV #PR6.ERRVEC*2 ; LEVEL 6 

.S8TTL TYPE PROGRAM NAME 

;;TYPE THE NAME OF THE PROGRAM IF FIRST PASS 



;;68$: 

67$: 

•SBTTL 



000176 
001 1 34 



69$: 
70$: 

1$: 



000007 

001226 
001226 



2$: 



INC 


#-1 


; .-FIRST TIME? 


BME 


67$ 


.-.-BRANCH IF NO 


CMP 


#$ENDAD.a#42 


.-.-ACT-11? 


BEQ 


67$ 


; .-BRANCH IF YES 


TYPE 


.68$ 


;;TYPE ASCIZ STRING 


BR 


67$ 


;;GET OVER THE ASCIZ 


.ASCIZ 


<CRLF>aiZRMSB0 


- RM05/3/2 DUAL PORT 



GET VALUE FOR SOFTWARE 



TST 
BNE 
CMP 
BNE 
GTSWR 
BR 

M0VB 



JSR 

JSR 

TYPE 

RD0CT 

MOV 

CMP 

BL0S 

TYPE 

BR 

MOV 

INC 

BIC 

MOV 

BIC 

BIS 

TYPE 

MOV 

TYPOS 

.BYTE 

.BYTE 

TYPE 

MOV 

TYPOS 
.BYTE 
.BYTE 
TYPE 



3*42 
69$ 

SWR.tfSWREG 
70$ 

70$ 

#1.$AUT0B 



PC.$TKINT 
PC. CHANCE 
.ENTERA 

(SP) ♦.PORTA 
PORT A. *7 
2$ 

.ADRERR 
1$ 

PORTA, PORTB 
PORTS 
#16. PORTB 
PORTA. -(SP) 
# A C6.(SP) 
(SP)*. PORTB 
.P0RTAIS 
PORTA, -(SP) 



1 
0 

.P0RTBIS 
PORTB. -(SP) 



1 

0 

.$CRLF 



SWITCH REGISTER 

ARE WE RUNNING UNDER XXDP/ACT? 
BRANCH IF YES 

SOFTWARE SWITCH REG SELECTED? 
BRANCH IF NO 
GET S0FT-SWR SETTINGS 

;;SET AUT0-M0DE INDICATOR 



SETUP THE TTY KEYBOARD 

CHECK/ CHANGE THE RH/RM ADDRESS 

ENTER DRIVE ADDRESS 

GET THE ADDRESS 

STORE THE ADDRESS 

SEE IF ADDRESS TOO LARGE 

BR IF NOT 

TYPE ADDRESS ERROR MESSAGE 
TRY AGAIN 

GENERATE THE PORT B ADDRESS 
INCREMENT THE ADDRESS 
LEAVE BIT 0 

PUT PORT A ADDRESS ON THE STACK 
SAVE BITS 1 6 2 

SET BITS 1 & 2 IN PORT B ADDRESS 
•PORT A ADDRESS IS ' 

SAVE PORTA FOR TYPE OUT 

TYPE PORT A ADDRESS 

GO TYPE— OCTAL ASCII 

TYPE 1 DIGIT(S) 

SUPPRESS LEADING ZEROS 
'PORT B ADDRESS IS ' 

SAVE PORTB FOR TYPE OUT 

TYPE PORT B ADDRESS 

GO TYPE— OCTAL ASCII 

TYPE 1 DIGIT(S) 

SUPPRESS LEADING ZEROS 
ANOTHER CR-LF 



7RMSBG RM05/3/? DU °0R TST 2 MACRO V04.00 
.FT vA L Ufc FOR SOFTWARE SWiTC* REGISTER 



51 002526 

52 002534 

53 002542 

54 002550 

55 002554 

58 002562 
002566 
002572 
002576 

59 002602 

60 002606 

61 002612 

62 002616 

63 002620 
64 

65 
66 

67 002622 

68 002624 

69 0C2630 

70 00263^ 

71 002640 

72 002644 

73 002650 

74 002652 

75 002656 

76 002662 

77 002666 

78 002674 

79 002702 

80 002710 

81 002714 

82 002716 
85 002720 

84 002722 

85 002726 

86 002732 

87 00<?734 

88 002740 

89 002742 

90 002744 

91 0C2746 

92 002754 

93 002760 

94 002766 

95 002772 
96 

97 
98 

99 002774 

100 003000 

101 003002 

102 003006 

103 003012 

104 003016 

105 003020 

106 003024 



013737 

062737 

042737 

01 3701 

116137 

005037 

005037 

005037 

005037 

004737 

000137 

104401 

000000 

000776 



000005 
005037 
104401 
01 3700 
012706 
004737 
000240 
004737 
005037 
005037 
112737 
012737 
012737 
104401 
104412 
012601 
001002 
0001 37 
020137 
003403 
104401 
000763 
005301 
006301 
016137 
005237 
012737 
000177 
000000 



001224 
000006 
1 77770 
001224 
025130 
001256 
001260 
001 262 
001264 
C13406 
002622 
017756 



1 7777b 
001207 
001272 
001100 
013406 

016044 
001266 
001100 
000001 
002674 
002702 
020023 



003122 
025140 

020043 



025110 
001266 
000001 
000000 



001230 
001230 
001230 

001232 



3$: 



B 3 
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MOV PORTA. PORTC 

ADD #6.PORTC 

BIC #*C7,P0RTC 

MOV PORTA, R1 

H0VB ATABI T (R1 ) ,ASR1 

CLR TINEA 

CLR TIMEAP 

CLR TIMES 

CLR TIME BP 

jSR PC.CKCLK 

JMP EXEC 

TYPE .NOCLOCK 

HALT 

BR 3$ 



SEO 0027 



GENERATE ADDRESS OF DRIVE NOT TESTED 

COMPLEMENT SOME BITS 

SAVE ONLY LOWER BITS 

USE PORT A ADDRESS AS INDEX 

;GET ATTENTION BIT FOR DRIVE 

CLEAR TIMEOUT ONE-SHOT VALUE LOCATION 

CLEAR TIMEOUT CNE-ShOT VALUE LOCATION 

CLEAR TIMEOUT ONE-SHOT VALUE LOCATION 

CLEAR TIMEOUT ONE-SHOT VALUE LOCATION 

SETUP CLOCK 

CLOCK HAS SEEN STARTED 
NO CLOCK ON SYSTEM 
FATAL ERROR 
INTERLOCK THE HAL f 



.•ROUTINE TO GET the TEST NUMBER FROM THE OPERATOR 
EXEC: 



001115 
00H06 
001110 



002772 
001104 



1$: 



2$: 



3$: 



4$; 



DC CC T 




f 1 CAD C WC D V TU F Ktr 


r i o 
CLH 


DC 


fx cad tuc oonrcccno ctatiiv. \ \c\at\ 


T VDC 




» fD_l c 

In— Lr 


nuv 


cdmahd on 


• DU /DM A ft ft DC C C C flD I AlftC V T Al/* 

Hn/ HPI fKuurit jo r UH J Nut X J Nu 


nuv 


HCTAT^ CD 

1 ALK , or 


• 1 OA IN CTAT^ DHruTCD 

LuAU olALK rUJNltn 


1 CD 

Jon 


rl , IMLK 




NOP 




•RFTl*BN IF NO CI Of* 


JSR 


PC.STKINT 


■INITIALIZE THE KEYBOARD 


CLR 


KYBCTL 


•CLEAR SINGLE TEST INDICATOR 


CLR 


SPASS 


CLEAR THE PASS COUNT 


M0V8 


tfl.SERMAX 


•SET ERROR MAX TO 1 


MOV 


#..$LPADR 


• INITIAL SETTING FOR LOOP ADDRFSS 


MOV 


tf..$LPERR 


•INITIAL SETTING FOR LOOP ON ERROR ADDRESS 


TYPE 


. TESTNO 


;ASK FOR TEST NUMBER 


RDOCT 




•GET THE NUMBER 


MOV 


(SP)+.R1 


•PUT ENTRY INTO R1 


BNE 


2$ 


•8R IF NOT ZERO 


JMP 


TST 1 


•ENTER ZERO - PERFORM ALL TESTS 


CMP 


R1,MAXTN 


•SEE IF NUMBER GREATER THAN MAXIMUM 


BLE 


3$ 


■8R IF LESS OR EQUAL 


TYPE 


.8ADN0 


•SAD ENTRY 


BR 


1$ 


•TRY AGAIN 


DEC 


Rl 


DECREMENT ENTRY 


ASL 


R1 


■SHIFT IT LEFT 


MOV 


TSTADR(R1),4$ 


■GET THE TEST ADDRESS 


INC 


KYBCTL 


•SET SINGLE TEST INDICATOR 


MOV 


*1.$ICNT 


•PRESET ITERATION COUNT 


JMP 


34$ 


■GO TO THE SELECTED TEST 


.WORD 


0 


•TEST ADDRESS GOES HERE 



; CHANGE THE RH/RM UNI8US ADDRESS USED BY THE PROGRAM 



005737 


001270 


CHANGE : 


TST 


CHGADR 


•CHANGE THE ADDRESS ? 


001421 






BE a 


3$ 


BR IF NOT 


005037 


001270 




CLR 


CHGADR 


CLEAR THE INDICATOR 


104401 


020072 


IS: 


TYPE 


.ADDRIS 


•TYPE OUT WHAT THE PRESENT ADDRESS IS 


013746 


001272 




MOV 


SRMADR.-(SP) 


PUT THE ADDRESS ON THE STACK 


104402 






TYPOC 




TYPE THE ACTUAL ADDRESS 


104401 


001207 




TYPE 


.$CRLF \ 


CR-LF 


104401 


020127 




TYPE 


.NTRH 


•ASK FOR NEW ADDRESS 



ZWSBO RM05/3/2 DU PCR TST d MACRO V04.00 4-APR-81 
jf T VALUE fOR SOFTWARE SWITCH REGISTER 



'07 003030 


104412 








RDOCT 


108 003032 
'■09 003034 


005716 








TST 


001402 








BEQ 


110 003036 


011637 


001272 






mov 


111 003042 


005726 






21: 


TST 


112 003044 


012737 


003064 


000004 


3$: 


MOV 


113 003052 


013700 


001272 






MOV 


114 003056 


005760 


000002 






TST 


115 003062 


000/ OA 








BR 


116 003064 








<.$: 




003064 


1040c' 








EMT 


117 003066 


C62706 


0000-J4 






ADD 


M8 003072 


000745 








BR 


119 003074 


012737 


000006 


000004 


5S: 


MOV 


120 003102 


000207 








RTS 



C 3 
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SFO 0028 



(SP) ;0 OR 'CR' ENTERED ? 

2$ ;BR IF EITHER ENTERED (NO ADDRESS CHANGE) 

(SP).SRMADR ;NEU RH/RM ADDRESS 

(SP)* .-CORRECT THE STACK POINTER 

#4$.a#4 .LOAD TRAP ADDRESS 

SRMADR.RO ;GET RH/RM ADDRESS 

RMWC(RO) .-RESPONDS AT THAT ADDRESS ? 

5$ ;BR IF YES 

25 

*4.SP .-RESET THE STACK POINTER 

1$ ;UET ADDRESS AGAIN 

#6.a*4 .-RESTORE THE VECTOR 

PC .-RETURN 



r ZRMSBO RM05/3/2 DO POR T ST 2 
TESTS 



MACRO tfCK.OO 



0 3 

4-APR-81 18:08:36 PAGE 10 



1 
2 
16 
17 
18 



19 

20 



003104 013700 001272 

003110 012746 000240 

003114 012746 003122 

003120 000002 
003122 



003122 
003122 
003)26 
003130 
003132 
003136 
003144 
003152 
003160 
003160 
003166 
003172 

21 

22 003200 

23 

24 

25 

33 003206 
0C3214 
003222 
003226 
003232 
003240 
003246 
003252 
003256 
003264 
003272 
003300 
003302 
003310 
003316 
003324 
003326 



005737 
001406 
100002 
000137 
012737 
012737 
012737 

112737 
012706 
012737 



113760 
013737 
005760 
005037 
016037 
012737 
060037 
005037 
013737 
042737 
023737 
001414 
01J737 
04^737 
053737 
104001 
005137 



001266 



002622 
U7777 
003160 
003160 

000001 
001100 
000001 



012760 000040 



001224 
001224 
000012 
001244 
000010 
000010 
001122 
001124 
001126 
167777 
001124 

001126 
010000 
001 1 74 

0C1244 



SEQ 0029 



001266 
001106 
001110 

001102 

001 1 76 

000010 



000010 
001234 



001126 
001122 



001164 
001164 
001164 

001 1 74 
001 1 74 
001124 



.S8TTL TESTS 



TST1AA: M0</ 
MOV 
MOV 
RTI 

64$: 



5RMADR.R0 
#PR5.-(SP> 
#64$. -(SP) 



.•RESTORE RO AFTER END OF 
.-PUT NEW PS ON STACK 
;PUT NEW PC ON STACK 
.POP NEW PC AND PS 



PASS 



TEST 1 DRIVE ACCESS TEST 

VERIFY THAT THE DRIVE CAN BE ACCESSED THROUGH BOTH PORTS 

A. SELECT DRIVE, VERIFY THAT THE DRIVE IS PRESENT. THAT THE 
DRIVE IS A DUAL PORT RM05. RM03 OR RM02 AND THAT THE DRIVE 
IS ONLINE (RMDS HAS 'MOL ' . 'PGM' , 'DPR'. & 'DRY' BITS SET). 
AND THE THE DRIVE SERIAL NUMBER READ THROUGH BOTH PORTS IS 
THE SAME . 



B. THE TEST IS REPEATED THROUGH BOTH PORTS. 



TST1 : 



1$: 
2$: 

TEST1 



TST 
BEQ 
BPL 
JMP 
MOV 
MOV 
MOV 

M0V8 

MOV 

MOV 

MOV 



KYBCTL 

2$ 

1$ 

EXEC 

#-1 .KYBCTL 
#TEST1 ,$LPADR 
#TEST1.$LPERR 

*1 .$TSTNM 
JSTACK.SP 
#1,$TIMES 



PERFORMING ONLY SINGLE TESTS ? 
BR IF NOT 

BR IF JUST ENTERED TEST 
RETURN I GET NEXT TEST NUMBER 
SET SINGLE TEST INDICATOR 
SETUP SCOPE LOOP ADDRESS 
SETUP ERROR LOOP ADDRESS 

MOVE #1 TEST NUMBER 
SETUP THE STACK POINTER 
;D0 1 ITERATION 



*CLR.RMCS2(R0> ; CLEAR MASSBUS 



.VERIFY THAT DRIVE IS PRESENT THROUGH PORTS A 6 B 



M0V8 

MOV 

TST 

CLR 

MOV 

MOV 

ADD 

CLR 

MOV 

BIC 

CMP 

BEQ 

MOV 

BIC 

BIS 

EMT 

COM 



PORTA. RMCS2(R0) .-SELECT PORT A 

PORTA. PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOU T 
RMDS(RO) ;SEE IF DRIVE (PORT A) PRESENT 

CKERR ; CLEAR THE 'CHECK ERROR' INDICATOR 

RMCS2(R0),$BDDAT ;GET CONTENTS OF RMCS2 
#RMCS2,$BDADR .-FORM REGISTER ADDRESS OF ERROR MESSAGE 
ADD RH/RM BASE ADDRESS 
WHAT REGISTER SHOULD BE 
MOVE REGISTER CONTENTS TO 'STMPO' 
SAVE SPECIFIED BITS 
COMPARE THE BITS 
8R IF OK 
COPY 'BAD DATA' 
CLEAR THE MASKED BITS 
'OR' WITH GOOD DATA FOR TYPEOUT 



RO . $BDADR 
$GDDAT 

$BDDAT,$TMPO 
# A CNED.$TMPO 
$GDDAT.$TMPO 
64$ 

$BDDAT.$TMP4 
#NED,$TMP4 
$TMP4.$GDDAT 



1 

CKERR 



.SET THE REGISTER COMPARE ERROR INDICATOR 



J^MSBO RM05/3/2 Du K)R TST 2 MACRO *04.00 4-APR-8 
DRIVE ACCESS TEST 



00333? 000240 64$: MOP 

003334 C05737 001244 TST 

003340 001403 BEQ 

003342 012760 OCKXKO 000010 MOV 

003350 113760 001226 000010 M0V8 

003356 013737 001226 001 234 MOV 

003364 005760 000012 TST 

003370 005037 001244 CLR 

003374 016037 000010 001126 MOV 

003402 012^37 000010 001122 MOV 

003410 06C.37 001122 ADD 

003414 005037 001124 CLR 

003420 013737 001126 001164 MOV 

003426 042737 167777 001164 BIC 

003434 023737 001124 001164 CMP 

003442 001414 BEQ 

003444 013 7 37 001126 001174 MOV 

003452 042737 010000 001174 BIC 

003460 053737 001174 001124 BiS 

00 3466 10^001 EMT 

003470 005137 001244 COM 

003474 000240 66$: NOP 

003476 005737 001244 TST 

003502 001403 BEQ 

003504 012760 000040 000010 MOV 

34 

35 .-CONFIRM THAT 



36 

40 003512 
003520 
003526 
003532 
003540 
003546 
003552 
003560 
003566 
003570 
003576 
003600 
003606 
0C3610 
003612 
003616 
003620 
003626 
003634 
003640 
003646 
003654 
003660 
003666 
003674 
003676 
003704 
003706 
003714 



113760 


001224 


000010 


M0V8 


013737 


001224 


001234 


MOV 


005037 


001244 




CLR 


016037 


000026 


001126 


MOV 


012737 


000026 


001122 


MOV 


060037 


001122 




ADD 


012737 


024027 


001124 


MOV 


022737 


024024 


001126 


CMP 


001413 






BEQ 


022737 


024025 


001126 


CMP 


001407 






BEQ 


023737 


001124 


001126 


CMP 


001403 






BEQ 


104002 






EMT 


005137 


001244 




COM 


000240 




68$: 


NOP 


1 1 3760 


001226 


000010 


M0V8 


013737 


001226 


001234 


MOV 


005037 


001244 




CLR 


016037 


000026 


001126 


MOV 


012737 


000026 


001122 


MOV 


060037 


001122 




ADD 


012737 


024027 


001124 


MOV 


022737 


024024 


001126 


CMP 


001413 






BEQ 


022737 


024025 


001126 


CMP 


001407 






BEO 


023737 


001124 


001126 


CMP 


00K03 






BEQ 



E 3 

18:08:36 PAGE ^0-1 



SEQ OOiO 



CKERR ;WAS 'NED' SET ? 

.♦10 ;BR IF NOT 

#ClR.RMCS2(R0) .-ISSUE MASS8US INI T TO CLEAR 'NED* 
PCWT8.RMCS?(R0> .-SELECT PORT B 

P0RT8. PTNBR .MOVE PORT ADDRESS TO LOCATION FOR T YPEOu T 
RMDS(RO) .SEE IF DRIVE (PORT B> PRESENT 

CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

RMCS2(R0).$8DDAT .GET CONTENTS OF RMCS2 
#RMCS2.$8DADR .FORM REGISTER ADDRESS OF ERROR MESSAGE 
ADD RH/RM BASE ADDRESS 
WHAT REGISTER SHOULD BE 
MOVE REGISTER CONTENTS TO '$TMP0' 
; SAVE SPECIFIED BITS 
COMPARE THE BITS 
8R IF OK 
COPY 'BAD DATA' 
CLEAR THE MASKED BITS 
'OR' WITH GOOD DATA FOR TyPEOUT 



R0.$8DADR 
$GDDAT 

$8DDAT.$TMP0 
# A CNED,$TMPO 
$GDDAT.$TMPO 
66$ 

$8DDAT,$TMP4 
#NED.$TMP4 
$TMP4,$GDDAT 
1 

CKERR 



CKERR 
.♦10 

#CLR,RMCS2(R0) 



;SET THE REGISTER COMPARE ERROR INDICATOR 

WAS 'NED' SET ? 
8R IF NOT 

ISSUE MASS8US INIT TO CLEAR 'NED ' 



DRIVE IS AN RMOS, RM03 OR RM02 AND IS DUAL PORTED 
PORTA.RMCS2(R0) .'SELECT PORT A 

PORTA. PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

RMDT (RO) ,$8DDAT ;GET CONTENTS OF RMDT 
#RMDT,$BDADR .-FORM REGISTER ADDRESS OF ERROR MESSAGE 



R0.$8DADR 
#024027. $GDDAT 
#024024.$BDDAT 
68$ 

002402 5. $BDDAT 
68$ 

$GDDAT,$BDDAT 
68$ 

2 

CKERR 



ADD RH/RM BASE ADDRESS 
WHAT REGISTER SHOULD BE 
DUAL PORT RM03 ? 
YES !! 

DUAL PORT RM02 ? 
YES !. 

IS THE REGISTER OK ' 
8R IF OK 

.-SET THE REGISTER COMPARE ERROR INDICATOR 



PORT8,RMCS2<R0> .'SELECT PORT B 

P0RT8. PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR ; CLEAR THE 'CHECK ERROR' INDICATOR 

RMDT (RO) .$8DDAT ;GET CONTENTS OF RMDT 
#RMDT,$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 



R0»$8DADR 
#024027. $GDDAT 
#024024, $BDDAT 
70$ 

#024025. $BDDAT 
70$ 

$GDDAT.$BDDAT 
70$ 



ADD RH/RM BASE ADDRESS 
WHAT REGISTER SHOULD BE 
DUAL PORT RM03 ? 
YES ! ! 

DUAL PORT RM02 ? 
YES !! 

IS THE REGISTER OK "> 
8R IF OK 



ZRMSBO RM05/3/2 DU POR T ST 2 
T1 DRIVE ACCESS TEST 



F 3 
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SEQ 0031 



003716 
003720 
003724 

41 
42 
43 

48 003726 
003734 
003742 
003746 
003754 
003762 
003766 
003774 
004002 
004010 
004016 
004020 
004026 
0C4034 
004042 
004044 
004050 
004052 
004056 
004064 
004072 
004076 
004104 
004112 
004120 
004126 
004130 
004136 
004144 
00415? 
004154 
004160 
004162 
004170 
004176 
0C4202 
004210 
004216 
004222 
004230 
004236 
004244 
004252 
004254 
004262 
004270 
004276 
004 300 
004304 
004306 
00431? 



104002 
005137 
000240 



1 1 3760 
013737 
005037 
016037 
012737 
060037 
012737 
013737 
042737 
023737 
001414 
013737 
042737 
053737 
104003 
005137 
000240 
005037 
016037 
012737 
060037 
012737 
013737 
04?737 
023737 
001414 
013737 
042737 
053737 
104004 
005137 
000240 
113760 
013737 
005037 
016037 
012737 
060037 
012737 
013737 
042737 
023737 
001414 
013737 
042737 
053737 
104003 
005137 
000240 
005037 
016037 



0C1244 



001224 
001224 
001244 
000012 
000012 
001122 
001000 
001126 
176777 
001124 

001126 
001000 
001 1 74 

001244 

001244 
000012 
000012 
0011?? 
010600 
001 1?6 
167177 
001124 

001126 
010600 
001 1 74 

001 ?44 

001 ??6 
001??6 
001 ?44 
00001? 
00001? 
0011?? 
001000 
001 1?6 
176777 
001 1?4 

001 1?6 
001000 
00"" 1 74 

001244 

001 ?44 
000012 



000010 
001234 

001126 
001122 

001124 
001164 
001164 
001164 

001 1 74 
001 1 74 
001124 



001126 
001122 

001 1?4 
001164 
001164 
001164 

001 1 74 
001 1 74 
001 1?4 



000010 
001 ?34 

001 126 
001122 

001124 
001164 
001164 
001164 

001174 
001 1 74 
001124 



00H26 



70$: 



emt 
cow 

NOP 



2 

CKERR 



;SET T HE REGISTER COMPARE ERROR INDICATOR 



.•VERIFY THROUGH BOTH PORTS THAT THE DRIVE IS ON LINE AND IN NEUTRAL 



7?$: 



74$: 



7 6$: 



M0V8 
MOV 

CLR 

MOV 

MOV 

ADD 

MOV 

MOV 

BIC 

CMP 

BEQ 

MOV 

BIC 

BIS 

EMT 

COM 

NOP 

CLR 

MOV 

MOV 

ADD 

MOV 

MOV 

BIC 

CMP 

BEQ 

MOV 

BIC 

BIS 

EMT 

COM 

NOP 

M0V8 

MOV 

CLR 

MOV 

MOV 

ADD 

MOV 

MOV 

BIC 

CMP 

BEQ 

MOV 

BIC 

BIS 

EMT 

COM 

NC? 

CLR 

MOV 



PORTA, RMCS2(R0) .-SELECT PORT A 

PORTA. PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR .-CLEAR THE ' CHECK ERROR* INDICATOR 

RMDS(RO) .SBDDAT ;GET CONTENTS OF RMDS 
*RMDS.$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
.-ADD RH/RM BASE ADDRESS 
; WHAT REGISTER SHOULD BE 

.-MOVE REGISTER CONTtNTS TO '$TMPO' 
.-SAVE SPECIFIED BITS 
.-COMPARE THE BITS 
;BR IF OK 
.-COPY 'BAD DATA' 
.CLEAR THE MASKED BITS 
; ' OR ' WITH GOOD DATA FOR TYPEOUT 



R0.S8DADR 
#PGM. SGDDAT 
$8DDAT.$TMP0 
#*CPGM. STMPO 
SGDDAT ,$TMPO 
72$ 

$8DDAT.$TMP4 
0PGM.STMP4 
STMP4. SGDDAT 
3 

CKERR 



.-SET THE REGISTER COMPARE ERROR INDICATOR 



CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS(RO) .SBDDAT ; GE T CONTENTS OF RMDS 
0RMDS . SBDADR ; FORM REGISTER ADDRESS OF ERROR MESSAGE 
R0.S8DADR .ADD RH/RM BASE ADDRESS 

*MOL.' DPR! DRY. SGDDAT ;WHAT REGISTER SHOULD BE 
S8DDAT .STMPO ;MOVE REGISTER CONTENTS TO 'STMPO' 
# A C 10600. STMPO .-SAVE SPECIFIED BITS 
; COMPARE THE BITS 
;8R IF OK 
.-COPY 'BAD DATA* 
.-CLEAR THE MASKED BITS 
;'0R' WITH GOOD DATA FOR TYPEOUT 



SGDDAT, STMPO 
74S 

S8DDAT .STMP4 
*10600.STMP4 
STMP4. SGDDAT 
4 

CKERR 



;SET THE REGISTER COMPARE ERROR INDICATOR 



P0RT8.RMCS2(R0> .-SELECT PORT B 

P0RT8. PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS(RO) ,S8DDAT .GET CONTENTS OF RMDS 
*RMDS, SBDADR ; FORM REGISTER ADDRESS OF ERROR MESSAGE 
;ADD RH/RM BASE ADDRESS 
,-WHAT REGISTER SHOULD BE 

.-MOVE REGISTER CONTENTS TO "STMPO' 
.-SAVE SPECIFIED BITS 
.•COMPARE THE BITS 
;8R IF OK 
; COPY 'BAD DATA' 
.-CLEAR THE MASKED BITS 
;'0R' WITH GOOD DATA FOR TYPEOUT 



R0.S8DADR 
#PGM, SGDDAT 
S8DDAT, STMPO 
#*CPGM, STMPO 
SGDDAT, STMPO 
76$ 

$8DDAT,$TMP4 
#PGM,STMP4 
$TMP4.$GDDAT 
3 

CKERR 



;SET THE REGISTER COMPARE ERROR INDICATOR 



CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS(RO) ,$8DDAT ;GET CONTENTS OF RMDS 



'"MjBu W5/3/? Du PGR Ti T 2 
DRIVE ACCESS TEST 



004320 
004326 
004532 
OCA 340 
004346 
004354 
004362 
004364 
004372 
004400 
004406 
004410 
004414 

49 
50 
51 

52 004416 

53 004424 

54 004432 

55 004440 

56 004446 

57 004454 

58 004456 

59 004460 

60 004466 

61 004470 

62 004472 
63 

97 
98 



012737 
060037 
012737 
013737 
042737 
023737 
001414 
013737 
042737 
053737 
104004 
005137 
000240 



1 1 3760 
016037 
1 1 3760 
016037 
023737 
001406 
104005 
032777 
0C1001 
000000 
000004 



000012 
001 122 
010600 
001126 
167177 
001124 

001126 
010600 
001174 

001244 



001224 
00C130 
001226 
000030 
001124 



ma:rg vG4. 



001122 

001124 
001164 
001164 
001164 

001174 
001174 
001124 



00C010 
001124 
000010 
001126 
001126 



100000 174452 



78$: 



MOV 
ADD 
MOV 
MOV 
BIC 
CMP 
BEO 
MOV 
6IC 
BIS 
EMT 
COM 
NOP 



G 3 

'8:08:36 PAGE 10-3 



#RMDS.$8DADR ;F0RM REGISTER ADDRESS OF ERROR MESSAGE 
R0.S8DADR .ADD RH/RM BASE ADDRESS 

*MCL !DPR!DRY. JGDDAT ; WHAT REGISTER SHOULD BE 



SEQ 003? 



tBDDAT .JTMPO 
**C10600, JTMPO 
JGDDAT .JTMPO 
78* 

J8DDAT.JTMP4 
#10600.$TMP4 
J TMP4. JGDDAT 
4 

CKERR 



.-MOVE REGISTER CONTENTS TO 'JTMPO' 
.SAVE SPECIFIED BITS 
.COMPARE THE BITS 
;8R IF OK 
; COPY 'BAD DATA' 
;ClEAR THE MASKED BITS 
;'0R' WITH GOOD DATA FOR TYPE OUT 

;SET THE REGISTER COMPARE ERROR INDICATOR 



.-VERIFY THAT DRIVE SERIAL NUMBER StEN THROUGH BOTH PORTS IS THE SAME 



1$: 



M0V8 


P0RTA.RMCS2CR0) 


.•SELECT PORT A 






MOV 


RMSN(RO) .JGDDAT 


; STORE THE PORT A SERIAL 


NUMBER 




M0V8 


PORTB.RMCS2CR0) 


.•SELECT PORT B 






MOV 


RMSN(RO) ,$8DDAT 


.-STORE THE PORT B SERIAL 


NUMBER 




CMP 


SGDDAT . JBDDAT 


;ARE THEY THE SAME ? 






BEO 


1$ 


;8R IF THEY ARE 






EMT 


5 








BIT 


#swi5,aswR 


.-HALT ON ERROR ? 






BNE 


1$ 


;6R IF SET - PROGRAM HAS 


ALREADY 


HALTED 


HALT 




.-HALT. POSSIBLE CABLE CONNECTION 


PROBLEM 


SCOPE 




.-LOOP ? 







TEST 2 SET 'VV FOR PORT A 

SET VOLUME VALID 

A. ISSUE A DRIVE CLEAR COMMAND THROUGH PORT A. 

8. ISSUE A READIN PRESET COMMAND THROUGH PORT A. VERIFY 
THAT THE 'W BIT IS SET FOR PORT A. 

C. ISSUE A RELEASE COMMAND THROUGH PORT A. VERIFY THAT 

THE DRIVE RETURNED TO NEUTRAL AND ThAT NEITHER ATTENTION 
8IT IS SET. 

*******»»***»»**»»*»»********»**»»*»»•*»»»**»»*»»*»**»***»*•*** 



004474 








TST2: 








0044 74 


005737 


001266 






T sr 


KY8CTL 


.•PERFORMING ONLY SINGLE TESTS ? 


004500 


001406 
100002 








BEO 


2$ 


;8R IF NOT 


004502 








BPL 


1$ 


;BR IF JUST ENTERED TEST 


004504 


000137 


002622 






JMP 


EXEC 


.-RETURN t GET NEXT TEST NUMBER 


004510 


012737 


177777 


001266 


1$: 


MOV 


#-1 .KYBCTL 


.-SET SINGLE TEST INDICATOR 


004516 


012737 


004532 


OOi 106 


2$: 


MOV 


#TEST2.$LPADR 


.-SETUP SCOPE LOOP ADDRESS 


004524 


012737 


004532 


001110 




MOV 


#TEST2,$LPERR 


; SETUP ERROR LOOP ADDRESS 


004532 








TEST2: 






004532 


112737 


000002 


001102 




M0V8 


#2, JTSTNM 


.-MOVE #2 TEST NUMBER 


004540 


012706 


001100 






MOV 


ffSTACK.SP 


;SETJP THE S T ACK POINTER 


004 544 


012737 


000001 


001 1 76 




MOV 


#1.$TIMES 


;;D0 1 ITERATION 



BO RMC5/3/2 DU POR TST 2 
SET VV' FOR PORT A 



M 3 

MACRO V04.00 4-APR-81 18:08:56 PAGE 10-4 



004552 113760 001224 
004560 013737 001224 



004566 012760 000011 
004574 012760 000021 
004602 012760 010000 



004610 
004614 
004622 
004630 
004634 
004642 
004650 
004656 
004664 
004666 
004674 
004702 
004710 
004712 
004716 



004720 
004726 
004734 



004742 
004746 
004754 
004760 
004766 
0C4774 
005002 
005010 
005016 
005024 
005032 
005040 
005046 
005054 
005056 
0C5062 
005064 
005066 
005072 
005100 
005106 



005037 
016037 
012737 
060037 
012737 
013737 
042737 
023737 
001414 
013737 
042737 
053737 
104010 
005137 
000240 



1 1 3760 
013737 
012760 



005037 
012737 
060037 
012737 
113760 
016037 
013737 
042737 
113760 
016037 
013737 
042737 
023737 
001006 
005737 
001037 
104034 
000137 
013737 
013737 
113760 



001244 
000012 
000012 
001122 
01 1 700 
001126 
106077 
001124 

001126 
071 700 
001 1 74 

001244 



001224 
001224 
000013 



000010 
001234 



00000C 
000000 
000032 



001126 
001122 

001124 
001164 
001164 
001164 

001 1 74 
001 1 74 
001124 



M0V8 P0RTA.RWS2(R0> ; SELECT PORT A 

MOV PORTA, PTNBR .HOVE PORT ADDRESS TO LOCATION FOR TyPEOuT 



.SET VOLLf* VALUE FOR PORT 

MOV #11.RHCS1(R0) 
MOV #21 .RMCS1 (RO) 
MOV #FMH6.RMOF(R0) 



.-ISSUE A DRIVE CLEAR 
.•ISSUE A READIN PRESET 
;SET FMT16 



.-VERIFY THAT THE DRIVE STATUS IS CORRECT 



64$: 



CLR ckerr 

MOV RMDS(RO) .$8DDAT 

MOV *RMDS.$BDADR 

ADD R0.$8DADR 

MOV *MOL.'PGM!DPR.DR 

MOV $8DDAT,$TMP0 

BIC # A C71700.$TMP0 

CMP $GDDAT,$TMPO 

BEQ 64$ 

MOV $8DDAT.$TMP4 

BJC #71700.$TMP4 

BIS $TMP4.$GDDAT 

EMT 10 

COM CKERR 
NOP 



.-CLEAR THE ' CHECK ERROR' INDICATOR 
;6ET CONTENTS OF RMDS 
FORM REGISTER ADDRESS OF ERROR MESSAGE 
ADD RH/RM BASE ADDRESS 
VV,$GDDAT ; WHAT REGISTER SHOULD BE 
MOVE REGISTER CONTENTS TO '$TMPO' 
SAVE SPECIFIED BITS 
COMPARE THE BITS 
BR IF OK 
COPY 'BAD DATA' 
CLEAR THE MASKED BITS 
'OR' WITH GOOD DATA FOR TYPEOUT 

SET THE REGISTER COMPARE ERROR INDICATOR 



.•RELEASE THE DRIVE FROM PORT A 



000010 
001234 
000000 



M0V8 PORTA. RMCS2(R0) ;SELElT PORT A 

MOV PORTA. PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV #1 3.RMCS1 (RO) ; ISSUE RFLEASE THROUGH PORT A 

.■VERIFY THAT THE DRIVE IS IN NEUTRAL 

CLEAR THE 'RELEASE ERROR ' INDICATOR 
FORM THE ADDRESS OF RMDS FOR TYPEOUT 
ADD THE I/O BASE ADDRESS 
$GDDAT .-COMPARISON CONSTANT 
SELECT PORT A. 

GET THE DRIVE STATUS REGISTER FROM PORT A. 
COPY IT INTO '$TMPO' 

CLEAR PORT DEPENDENT BITS FROM THE COPY 
SELECT PORT B. 

GET THE DRIVE STATUS REGISTER FROM PORT B. 
COPY IT INTO '$TMP1' 

CLEAR PORT DEPENDENT BITS FROM THE COPY 
IS THE STATUS REGISTER THE SAME FROM BOTH PORTS 
8R IF NOT 

REGISTERS ARE THE SAME: ARE THEY ZERO ? 
8R IF NOT 

BYPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAl 
SELECT PORT B. 



001250 




CLR 


RELERR 


000012 


001122 


MOV 


#RMDS , $BDADR 


001122 




ADD 


RO . $8DADR 


011600 


001124 


MOV 


#MOL ! PGM ! DPR ! DR Y 


001224 


000010 


M0V8 


PORTA. RMCS2(R0) 


000012 


001170 


MOV 


RMDS(R0).$TMP2 


001 1 70 


001164 
001164 


MOV 


$TMP2.$TMP0 


100100 


BIC 


*ATA! VV,$TMP0 


001226 


000010 


M0V8 


PORTS, RMCS2CR0) 


000012 


001 1 72 


MOV 


RMDS(R0).$TMP3 


001172 


001166 


MOV 


$TMP3.$TMP1 


100100 


001166 


BIC 


*ATA.'VV.$TMP1 


001164 


001166 


CMP 
BNE 


$TMP0.$TMP1 
66$ 


001164 




TST 
BNE 
EMT 


$TMPO 

68$ 

34 


005252 




JMP 


70$ 


001170 


001126 66$: 


MOV 


$TMP2,$8PDAT 


001226 


001234 


MOV 


P0RT8. PTNBR 


001226 


000010 


M0V8 


PORT8.RMCS2(R0) 



:*«SBC RM05/3/2 OU POR T S T 2 



I 3 



MACRO *04.QO 4-APR-81 18:08:36 PAGE * >5 



9V 



SET 'vv' POR PORT A 










0051 14 


005737 


001164 






i j i 


# 1 <w\J 


005120 


001414 








RFO 

DC W 


67$ 


00512? 


013737 


001224 


AA1 11/ 
UV 1 C J*» 






PORTA PTMV) 


005130 


01 3737 


001172 


VV 1 1 CD 




MDW 


tTMP^ 1RDDAT 

* 1 IT J . MXfl/^ 1 


005136 


113760 


001224 


000010 

Uvvw 1 v 




MTIWQ 


PORTA RMfSP(RO) 


005144 


005737 


001166 








4TMP1 


005150 


001004 








RNF 


68$ 


005152 


012737 


1 77777 




ft7t- 


nuv 




005160 


104036 








FMT 


36 


005162 


013737 


001 1 70 


ooi i 


f,R% ■ 

UOJ - 


MOV 

riv V 




005170 


013737 


001224 


ooi?^£ 

Uv i c J** 




MOW 


PORTA PTNRR 


005176 


042737 


100100 


nm 1 7o 




ric 

OIL 


#ATA'VV tTMP? 


005204 


023737 


001124 


VV 1 1 f V 




r Mp 


SGDDAT $TMP? 


005212 


001401 








RFC 

DC U 


69$ 


005214 


104037 








FMT 


37 


005216 


013737 


001172 


Vv 1 ICO 




MOW 


4TMP3 tRDDAT 


005224 


013737 


001226 


001 

VV I C J*4 




MOW 




005232 


042737 


100100 


001 1 7? 

VV 1 1 ' C 




RIf 


fATA'VV $TMP3 


005240 


023737 


001124 


001 1 72 




CMP 


$GDDAT,$TMP3 


005246 


001401 








BE0 


70$ 


005250 


104037 








EMT 


37 


005252 


000240 






70$: 


NOP 




005254 


000004 








SCOPE 





SE0 0054 



005256 
005256 
0C5262 
005264 
005266 
005272 
005300 
005306 
005314 
005314 
005322 
005326 

005334 
00534? 



SEE IF STATUS EG 0 FROM PORT A. 
BR IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEuTRAl 
"BAD DATA' FOR ERROR TYPE OUT 
SELECT PORT A. 

SEE IF STATUS EQ ZERO FROM PORT B. 
BR IF NOT 

SET 'RELEASE ERROR* INDICATOR 

LOOK FOR BIT FAILURES WHEN RMDS READ 

CHANGE PORT NUMBER 

DON'T CHECK ATTN BIT OR VV BIT 

ALL BITS OK ? 

BR IF OK FROM PORT A. 

CHECK RMDS FOR BIT FAILURES - FROM PORT B. 

CHANGE PORT NUMBER 

DON'T CHECK ATTN 81 T OR VV BIT 

SEE IF READ OK FROM PORT b. 

BR IF OK 



.•LOOP ? 



TEST 3 SET 'W FOR PORT B 

SET VOLUME VALID 

A. ISSUE A DRIVE CLEAR COMMAND THROUGH PORT B. 

B. ISSUE A READ IN PRESET COMMAND THROUGH PORT B. VERIFY 
THAT THE 'VV* BIT IS SET FOR PORT B. 

C. ISSUE A RELEASE COMMAND THROUGH PORT 8. VERIFY THAT 

THE DRIVE RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION 
BIT IS SET. 



005737 
001406 
100002 
000137 
012737 
012737 
012737 

112737 
01?706 
012737 

113760 
013737 



00126c 



002622 
}77777 
005314 
005314 

000003 
001100 
000001 

001226 
001226 



00 1 266 
001106 
001110 

001102 

001176 

00001 C 
001234 



TST3: 



1$: 
2$: 

TEST3: 



TST 
BEG 
BPL 
JMP 
MOV 
MOV 
MOV 

M0V8 

MOV 

MOV 

M0V8 
MOV 



KY8CTL 

2$ 

1$ 

EXEC 

#-1 .KYBCTL 
'TEST3.$LPADR 
#TEST3.$LPERR 

»3,$TSTNM 
*STACK,SP 
#1,$TIMES 



PERFORMING ONLY SINGLE TESTS ? 
BR IF NOT 

BR IF JUST ENTERED TEST 
RETURN t GET NEXT TEST NUMBER 
SET SINGLE TEST INDICATOR 
SETUP SCOPE LOOP ADDRESS 
SETUP ERROR LOOP ADDRESS 

MOVE #3 TEST NUMBER 
SETUP THE STACK POINTER 
;D0 1 ITERATION 



PORT8.RMCS2CR0) ."SELECT PORT B 

POR T8.PTNBR .-MOVE PORT ADDRESS tq LOCATION F OR TYPEOUT 



;SET VOLUME VALjE FuR PORT 



7RMSB0 RM05/5/2 DU POR T ST 2 
H SET 'vV FOR PORT B 

005350 012760 000011 
005356 012760 000021 
005564 012760 010000 



MACRO V04.00 



000000 
000000 
000032 



J 3 

4-APR-81 18:08:36 PAGE 10-6 



SCO 0035 



MOV #11.RMCS1(R0> 
MOV #21.RMCS1(R0> 
MOV #FMT16.RMOFfR0) 



; ISSUE A DRIVE CLEAR 
.-ISSUE A READIN PRC St T 
;SET FMT16 



.-VERIFY THAT THE DRIVE STATUS IS CORRECT 



005372 
005376 
005404 
005412 
005416 
005424 
005432 
005440 
005446 
005450 
005456 
005464 
005472 
005474 
005500 



005502 
005510 
005516 



005037 
016037 
012737 
060037 
012737 
013737 
042737 
023737 
001414 
013737 
042737 
053737 
104010 
005137 
000240 



113760 
013737 
012760 



001244 
000012 
000012 
001122 
01 1 700 
001126 
106077 
001124 

001126 
071 700 
001 1 74 

001244 



001226 
001226 
00001 3 



001126 
001122 

001124 
001164 
001164 
001164 

001 1 74 
001 1 74 
001124 



64$: 



CLR 
MOV 
MOV 
ADD 
MOV 
MOV 
BIC 
CMP 
BEQ 
MOV 
BIC 
BIS 
EMT 
COM 
NOP 



CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS(RO) ,$BDDAT ;6ET CONTENTS OF RMDS 

*RMDS . SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 



RO.SBDADR 
*MOL ! PGM ! DPR ! DRY 
$BDDAT,$TMPO 
**C71700.$TMP0 
$GDDAT.$TMPO 
64$ 

$8DDAT.$TMP4 
*71700.$TMP4 
$TMP4.$GDDAT 
10 

CKERR 



SHOULD BE 
•$TMPO' 



ADD RH/RM BASE ADDRESS 
VV.$GDDAT ;WHAT REGISTER 
MOVE REGISTER CONTENTS TO 
SAVE SPECIFIED BITS 
COMPARE THE BITS 
BR IF OK 
COPY 'BAD DATA' 
CLEAR THE MASKED BITS 
'OR' WITH GOOD DATA FOR TYPEOUT 

SET THE REGISTER COMPARE ERROR INDICATOR 



.•RELEASE THE DRIVE FROM PORT B 



000010 
001234 
000000 



MOVB PORT8.RMCS2(R0) .-SELECT PORT B 

MOV P0RT8.PTNBR .-MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV 013.RMCS1 (RO) .-ISSUE RELEASE THROUGH PORT B 

.-VERIFY THAT THE DRIVE IS IN NEUTRAL 

CLEAR THE 'RELEASE ERROR ' INDICATOR 
FORM THE ADDRESS OF RMDS FOR TYPEOUT 
ADD THE I/O BASE ADDRESS 
$GDDAT ; COMPARISON CONSTANT 
SELECT PORT A. 

GET THE DRIVE STATUS REGISTER FROM PORT A. 
COPY IT INTO '$TMPO' 

CLEAR PORT DEPENDENT BITS FROM THE COPY 
SELECT PORT B. 

GET THE DRIVE STATUS REGISTER FROM PORT B. 
COPY IT INTO '$TMP1' 

CLEAR PORT DEPENDENT BITS FROM THE COPY 
IS THE STATUS REGISTER THE SAME FROM BOTH PORTS 1 
BR IF NOT 

REGISTERS ARE THE SAME: ARE THEY ZERO ? 
BR IF NOT 

BYPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT IF TEST SHOWS DR WE NOT IN NEUTRAL 
SELECT PORT B. 

SEE IF STATUS EG 0 FROM PORT A. 
BR IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
'BAD DATA' FOR ERROR TYPE OUT 
SELECT PORT A. 

SEE IF STATUS EQ ZERO FROM PORT 8. 



005524 


005037 


001250 




CLR 


RELERR 


005550 


012757 


000012 


001122 


MOV 


#RMDS,$BDADR 


005536 


060057 


001122 




ADD 


R0,$8DADR 


005542 


012757 


011600 


001124 


MOV 


WOL.' PGM! DPR! DRY 


005550 


1 1 5760 


001224 


000010 


M0V8 


PORTA,RMCS2(R0) 


005556 


016057 


000012 


001 1 70 


MOV 


RMDS(R0).$TMP2 


C05564 


015737 


001170 


001164 


MOV 


$TMP2.$TMP0 


005572 


042757 


100100 


001164 


BJC 


#ATA.'VV,$TMPO 


005600 


115760 


001226 


000010 


M0V8 


PORTS, RMCS2(R0) 


005606 


016057 


000012 


001 1 72 


MOV 


RMDS(R0).$TMP5 


005614 


015757 


001172 


001166 


MOV 


$TMP3,$TMP1 


0C5622 


042757 


100100 


001166 


BIC 


#ATA!VV,$TMP1 


005630 


025757 


001164 


001166 


CMP 


$TMP0.$TMP1 


005636 


001006 






BNE 


66$ 


005640 


005757 


001 164 




TST 


$TMPO 


005644 


001057 






BNE 


68$ 


005646 


104034 






EMT 


54 


005650 


000157 


006054 




JMP 


70$ 


005654 


015757 


001 1 70 


001126 66$: 


MOV 


$TMP2.$BDDAT 


005662 


015757 


001226 


001234 


MOV 


POR T8.PTNBR 


005670 


115760 


001226 


000010 


M0V8 


PORT8,RMCS2(R0) 


005676 


005757 


001164 




TST 


$TMPO 


005702 


001414 






BEG 


67$ 


005704 


015757 


001224 


001254 


MOV 


PORTA, PTNBR 


005712 


013757 


001 1 72 


001126 


MOV 


$TMP5.$BDDAT 


005720 


1 1 5760 


001224 


000010 


M0V8 


P0RTA.RMCS2(R0) 


005726 


005757 


001166 




TST 


STMP1 



100 
105 
157 



RM05/3/2 DU POft 


TST 2 


MACRO 


/04.00 


4-APR-81 


K 

18:08:36 PAGE 


SET 'vV FOR PORT B 










OC5732 


001004 








fVJF 


68$ 


005734 


01273/ 


177777 


001 ?so 




MOV 


RFl FRP 


005742 


104036 








FMT 


36 


005744 


013737 


001170 


001 1?6 




MOV 


$TMP? $RDCAT 


005752 


013737 


001224 






MOV 

ITW If 


PORTA PTNRR 


005760 


042737 


100100 


0011^0 




Rir 

OH 


XfATA 1 W $TMP? 


005766 


023737 


001124 


001 17C 




f MP 


$GDDAT $TMP? 


005774 


001401 








RFO 

DC W 




005776 


104037 








FMT 


37 


006000 


013737 


001 1 72 


001 1 ?6 

V J 1 ICO 




Mnw 


$TMP^ $RDDAT 


006006 


013737 


001 226 


001 ?% 






PORTR PTNRR 


006014 


042737 


100100 


001 1 7? 

\J\J 1 1 1 c 




Rir 


tfATA'VV $TMP^ 


006022 


023737 


001124 


00117? 




CMP 


JGDDAT $TMP3 


006030 


001401 








RFQ 


70$ 

» \J9 


006032 


104037 








EMT 


37 


006034 


000240 






70$: 


NOP 




006036 


000004 








SCOPE 





SEQ 0056 



;8R JF NOT 

;SET 'RELEASE ERROR* INDICATOR 

LOOK FOR BIT FAJ LURES WHEN RMDS READ 

CHANGE PORT NUMBER 

DON'T CHECK ATTN BIT OR VV BIT 

ALL BITS OK ? 

BR JF OK FROM PORT A. 



CHECK RMDS FOR BIT FAILURES 
CHANGE PORT NUMBER 
DON'T CHECK ATTN BIT OR VV BI T 
SEE IF READ OK FROM PORT B. 
BR IF OK 



.•LOOP ? 



FROM PORT 6. 



006040 
006040 
006044 
006046 
006050 
006054 
006062 
006070 
006076 
006076 
006104 
006110 

006116 
006122 



006126 
006132 



005737 
001406 
100002 
000137 
012737 
012737 
012737 

112737 
012706 
012737 

005037 
005037 



00S037 
012737 



001266 



002622 
177777 
006076 
006C76 

000004 
001100 
000001 

001256 
001260 



001252 
003720 



*************************************************************** 

TEST 4 MEASURE THE TIMEOUT ONE-SHOT THROUGH PORT A 

MEASURE THE TIMEOUT ONE-SHOT VALUE THROUGH PORT A 

A. WRITE O'S INTO RMDS THROUGH PORT A AND VERIFY THAT THE 
DRIVE HAS BEEN SEIZED. 

B. WAIT FOR TIMEOUT TO OCCUR. MEASURE THE DURATION OF THE TIMEOUT 
ONE-SHOT AND SAVE THE VALUE FOR LATER USE. 

C. VERIFY THAT THE TIMEOUT OCCURRED AND THAT THE DRIVE RETURNS 
TO NEUTRAL 

*************************************************************** 

TST4: 

PERFORMING ONLY SINGLE TESTS ? 
BR IF NOT 

BR IF JUST ENTERED TEST 
RETURN I GET NEXT TEST NUMBER 
SET SINGLE TEST INDICATOR 
SETUP SCOPE LOOP ADDRESS 
SETUP ERROR LOOP ADDRESS 

MOVE #4 TEST NUMBER 
SETUP THE STACK POINTER 
;D0 1 ITERATION 

.-CLEAR THE TIMEOUT VALUE STORAGE LOCATION 







TST 


KY8CTL 






8EQ 


2$ 






BPL 


1$ 






JMP 


EXEC 


001266 


1$: 


MOV 


0-1.KY8CTL 


001106 


2$: 


MOV 


*TEST4.$LPADR 


001110 




MOV 


#TEST4,$LPERR 




TEST4: 






001102 




M0V8 


*4.$TSTNM 






MOV 


0STACK.SP 


001176 




MOV 


#1,$TIMES 






CLR 


TIMEA 






CLR 


TIMEAP .-CLEAR 




.-START 


THE TIMER 






CLR 


TIME 


001254 




MOV 


*2000. .WATCH 



.-CLEAR THE ELAPSED 
.-SET WATCH TO 2000. 



f*E COUNTER 
MS 



i 



ZRMSBO RM05/3/2 DO POR T S T 2 MACRO V04.00 4-APR-81 
'4 MEASURE THE TIMEOUT ONE-SHOT THROUGH PORT A 



I 3 

18:08:36 PA&E 0-8 



SEQ 0037 



006 140 
006146 
006 54 
006160 
006166 
0061 74 
006202 
006210 
006214 
006222 
006226 
006234 
006236 
006240 
006244 
006244 
006252 
006260 
006266 
006274 
006302 
006306 
006314 
006322 
006330 
006332 
006334 



006336 
006344 
006352 
006356 
006360 
006364 
006366 
006370 
006374 
0C6402 
006406 
006410 



006414 
006422 
006424 



006426 
006426 



1 1 3760 
013737 
005060 
1 1 3760 
013737 
013737 
016037 
010037 
062737 
005037 
023737 
001403 
104030 
000137 

1 1 3760 
013737 
016037 
012737 
013737 
005137 
013737 
043737 
023737 
001401 
10^.031 
000240 



1 1 3760 
013737 
005760 
001006 
005737 
001372 
104006 
000137 
013737 
004537 
001256 
012637 



023727 
1C3001 
104007 



001224 
001224 
000012 
001226 
001226 
001226 
000012 
001122 
000012 
001124 
001124 



006754 

001224 
001224 
000012 
011700 
001124 
001166 
001126 
001166 
001124 



000010 
001236 

000010 
001234 
001240 
001126 

001122 

001126 



000010 
001234 
001126 
001124 
001166 

001164 
001164 
001164 



001226 000010 
001226 001234 
000012 

001254 



006426 

001252 001256 
013572 

001260 



001256 000764 



.•SEIZE THE DRIVE THROUGH PORT A 



64$: 



65$: 



M0V8 

MOV 

CLR 

M0V8 

MOV 

MOV 

MOV 

MOV 

ADD 

CLR 

CMP 

BEQ 

EMT 

JMP 

M0V8 

MOV 

MOV 

MOV 

MOV 

COM 

MOV 

BIC 

CMP 

BEQ 

EMT 

NOP 



PORTA. RMCS2(R0) ; SELECT PORT A 
PORTA, SEIZPT .-STORE SEI2ING PORT'S ADDRESS 
RMDS(RO) .-WRITE RMDS 

P0RT8.RMCS2(R0) .SELECT PORT B 

P0RT8.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 



P0RT8,0PPRT 
RMDS (RO) ,$BDDAT 
R0.S8DADR 
tfRMDS , $BDADR 
$GDDAT 

$GDDAT.$BDDAT 

64$ 

30 

4$ 



'OPPOSITE' PORT ADDRESS 
SEE IF DRIVE SEIZED BY PORT A 
RH/RM BASE ADDRESS 
GENERATE BAD REGISTER ADDRESS 
REGISTER SHOULD BE ZERO 
IS THE REGISTER ZERO 
BR IF IT IS 

BYPASS REST OF THE SUBTEST 



PORTA. RMCS2(R0) .-SELECT PORT A 

PORTA, PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
RMDS(RO) ,$BDDAT ;SEE IF SEIZING PORT SEES CORRECT STATUS 
#MOL ! PGM ! DPR ! DRY ! VV , $GDDAT .-EXPECTED STATUS 
$GDDAT.$TMP1 ;USE GOOD DATA AS A MASK 

; COMPLEMENT THE EXPECTED STATUS 
.-SAVE THE ACTUAL STATUS 
; CLEAR UNWANTED BITS 
.-ARE THE EXPECTED STATUS BITS SET ? 
;QR IF THEY ARE 



$TMP1 

$8DDAT,$TMP0 
$TMP1,$TMP0 
$GDDAT,$TMPO 
65$ 
31 



.-WAIT FOR PORT A TO TIMEOUT 



1$: 



2$: 



Move 

MOV 

TST 

BNE 

TST 

BNE 

EMT 

JMP 

MOV 

JSR 

.WORD 

MOV 



PORT8.RMCS2(R0) ."SELECT PORT B 

P0RT8, PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 



RMDS(RO) 
2$ 

WATCH 
1$ 
6 
3$ 

TIME , TIMEA 
R5, TOLER 
TIMEA 

(SPH.TIMEAP 



WAIT FOR THE DRIVE TO TIMEOUT 
BR WHEN TIMEOUT OCCURS 
CHECK WATCH 
BR IF NOT ZERO 

BYPASS THE REST OF THE T EST 
SAVE THE ELAPSED TIME FOR PORT A 
CALCULATE THE TOLERANCE 
TIMEOUT VALUE FOR PORT A 
♦25X TOLERANCE 



.-VERIFY THAT THE TIMEOUT ONE-SHOT VALUE IS AT LEAST 500 MS 



CMP 

BHIS 

EMT 



TIMEA. #500. 

3$ 

7 



;IS TIMEOUT VALUE AT LEAST 500 MS ? 
;faR IF IT IS 



.•VERIFY THA T THE DRIVE RETURNED TO NEUTRAL AFTER PORT A TIMED OUT 



005037 001250 



3$: 

; VERIFY THAT THE DRIVE IS IN NEUTRAL 

CLR RELFRR .-CLEAR THE 'RELEASE ERROR 



INDICATOR 



T4 



2 MACRO V04.00 4-APR-81 18:08:36 PAGE 



3 

10-9 



158 



MEASURE 


THE TIMEOUT ONE 


-SHOT THROUGH 


PORT A 




006432 


01 2737 


000012 

WW ■ t- 


001122 




MOV 


#RMDS.*BDADR 


006440 


060037 


OG1122 

W 1 >LC 






ADO 


t\f\ #Ar\ a r n 

R0„$8DADR 


006444 


012737 


on7oo 

VI • » w 


001124 




MOV 


*M0L . PGM ! DPR ! DRY 


006452 


1 13760 


001224 


000010 

WW « w 




M0V8 


PORTA,RMCS2(R0J 


006460 


016037 


000012 

WW * &- 


001170 




MOV 


RMDS(RO) .$TMP2 


006466 


013737 


001 1 70 


001164 




MOV 


*TMP2,»TnP0 


006474 


042737 


100100 

1 W 1 w 


001164 




BIC 


#ATA! VV.*TMP0 


006502 


113760 


001226 


000010 

WW ' W 




M0V8 


rv>r% ▼ r~» Pius* c "1 / r»A \ 

POR TB . RMC S2 ( R0 ) 


006510 


016037 


000012 


001172 




MOV 


RMDS(RO) # *TMP3 


006516 


013737 


001172 


001166 




UAL i 

MOV 


*TM?3. JTMPl 


006524 


042737 


100100 

1 \^ v ' %^«y 


001166 




BIC 


At A T A I WW * TUA1 


006532 


023737 


001164 


001166 




CMP 


JTMP0.STMP1 


006540 


001006 

\y\y 1 \y^^^y 








BNE 


66* 


006542 


005737 


001164 






T f" T 

1ST 


5TMP0 


006546 


001045 








BNE 


68$ 


006550 


104034 








PUT 

EMT 


34 


006552 


0001 37 


006752 






JMP 


70* 


006556 


01 3737 


001 1 70 


001 1 26 


66$: 


MOV 


$TMP2, JBDDAT 


006564 


013737 


001 226 


001 234 




MOV 


P0RT8.PTNBR 


006572 


113760 


001 226 


000010 




MOVB 


P0RT8.RMCS2CR0J 


006600 


005737 


001 1 64 






t r* T 

TST 


J TMPO 


006604 


001414 








BE 0 


67* 


006606 


013737 


001224 


001234 




MOV 


f\nO T A ATI ID O 

POR 1 A,PTNBR 


006614 


013737 


001 1 72 


001126 




MOV 


f- TUP) 7 tQAA A T 

*TMP3,»BDDAT 


006622 


113760 


001224 


000010 




MOVB 


nor* ta Aiird/oA^ 

P0RTA,RMC5ir (RU/ 


006630 


005737 


001166 






TC T 

TS T 


* TMA1 

*TMP I 


006634 


001012 








one 

BNE 


/at 
60* 


006636 


012737 


1 77777 


001250 


67$: 


UO\ / 

MOV 


a* 1 nri r 00 

»— 1 ,RcLERR 


006644 


012760 


000011 


000000 




US"\t I 

MOV 


*1 1 niirci /aa\ 

#1 1 ,RnC5 1 (RO/ 


006652 


012760 


000013 


000000 




MOV 


mi 7 nur c 1 /d/*\\ 

ffl3,RnCS I (RO; 


006660 


104035 








EMT 


3D 


006662 


013737 


001 1 70 


001 1 26 


68$: 


MOV 


#ThAA tDAAAT 


006670 


013737 


001224 


001234 




MOV 


POHTA,PTNBR 


aa/ y "7/ 

006676 


042737 


100000 


001 1 70 




BIC 


»ATA,$TMP<: 


00670' 


023737 


001124 


001 1 70 




run 

CMP 


SGDDAT , JTMPt? 


006712 


001401 








BEQ 


69* 


006 /H*» 


104037 








tut 

EMT 


37 


Art/ 74/ 

006716 


013737 


001 1 72 


001126 


69$: 


MOV 


J inP3,*BDDA 1 


r\r\i 7^y 

006724 


013737 


001226 


001234 




MOV 


PORTa.PTNBR 


Art/ 

006732 


042737 


100000 


001172 




BIC 


MAT A tTUD? 

»A TA . * TMP3 


rtAA 7Z.rt 


023737 


0C1124 


001 1 72 




TMD 

Lrr 


*rr>r>AT ctmd^ 
»ouum 1 # » 1 nrj 


006746 


001401 








BEQ 


70$ 


006750 


104037 








EMT 


37 


006752 


000240 






70$: 


NOP 




006754 


000004 






4$: 


SCOPE 





FORM THE ADDRFSS OF RMDS FOR T VPEOuT 
ADD THE 1/0 BASE ADDRESS 
VV»$GDDAT .-COMPARISON CONSTANT 
SELECT PORT A. 

GET THE DRIVE STATUS REGISTER FROM PORT A. 
COPY IT INTO ^TMPO* 

CLEAR PORT DEPENDENT BITS FROM THE COPY 
SELECT PORT B. 

GET THE DRIVE*STATUS REGISTER FROM PORT B. 
COPY IT INTO '$TMP1 * 

CLEAR PORT DEPENDENT BITS FROM THE COPY 

IS THE STATUS REGISTER THE SAME FROM BOTH PORTS 

BR IF NOT 

REGISTERS ARE THE SAME: ARE THE* ZERO ? 
BR IF NOT 

BYPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT IF TEST SHOWb DRIVE NOT IN NEUTRAL 
SELECT PORT B. 

SEE IF STATUS EQ 0 FROM PORT A. 
BR IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
'BAD DATA' FOR ERROR TYPE OUT 
SELECT PORT A. 

SEE IF STATUS EQ ZERO FROM PORT B. 
BR IF NOT 

SET 'RELEASE ERROR' INDICATOR 
CLEAR THE DRIVE 
RELEASE THE DRIVE 

LOOK FOR BIT FAILURES WHEN RMDS READ 

CHANGE PORT NUMBER 

DON'T CHECK THE ATTN BIT 

ALL BITS OK ? 

BR IF OK FROM PORT A. 

CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
CHANGE PORT NUMBER 
DON'T CHECK THE ATTN BP 
SEE IF READ OK FROM PORT B. 
BR IF OK 



;L00P ? 



•a************************************************************** 

♦TEST 5 MEASURE THE TIMEOUT ONE-SHOT THROUGH PORT B 

* 

•MEASURE THE TIMEOUT ONE-SHOT VALUE THROUGH PORT B 
* 

* A. WRITE 0'S INTO RMDS THROUGH PORT B AND VERIFY THAT THE 

DRIVE HAS BEEN SEIZED. 

* 

* B. WAIT FOR TIMEOUT TO OCCUR. MEASURE THE DURATION OF THE TIMEOUT 

ONE-SHOT AND SAVE THE VALUE FOR LATER USE. 



N 3 

ZRMSBG RM05/3/2 DU POR 1ST 2 MACRO V04.00 4-APR-81 18:08:36 PAGE 10-10 
TS MEASURE THE TIMEOUT ONE-SHOT THRCJGH PORT 6 



SEO 0039 



007044 
007050 



007056 
007064 
007072 
007076 
0071 OA 
007112 
007120 
007126 
007132 
007140 
007144 
007152 
0071 54 
0C7156 
007162 
007162 
007170 
007176 
007204 
007212 
007220 
007224 
007232 
007240 
007246 
007250 
0072V 



005037 
012737 



113760 
013737 
005060 
113760 
013737 
013737 
016037 
010037 
062737 
005037 
023737 
001403 
104030 
0001 37 

1 1 3760 
013737 
016037 
012737 
013737 
005137 
013737 
043737 
023737 
0014G1 
104031 
000240 



001252 
003720 



001226 
001226 
000012 
001224 
001224 
001224 
000012 
001122 
000012 
001124 
001124 



007672 

001226 
001226 
000012 
011700 
001124 
001166 
001126 
001166 
001124 



001254 



000010 
001236 

000010 
001234 
001240 
001126 

001122 

001126 



000010 
001234 
001126 
001124 
001166 

001164 
001164 
001164 



VERIFY THAT THE TIMEOUT OCCURRED AND THAT THE DRIVE RETURNS 
TO NEUTRAL 



006756 








• * 

T S T 5: 


ooa75a 

\J\J\J f JO 


0057^7 


001 ?M\ 

W 1 COO 






006762 


001406 








006764 


100002 








006766 


000137 


002622 






006772 


012737 


"\77777 


001266 


1 $: 


007000 


012737 


007014 


001106 


2$: 


007006 


012737 


007014 


001110 




007014 








TESTS 


007014 


112737 


000005 


001102 




007022 


012706 


001100 






007026 


012737 


000001 


001 1 76 




007034 


005037 


001262 






007040 


005037 


001264 







TST 
BEO 
BPL 
JMP 
MOV 
MOV 
MOV 

MOVB 

MOV 

MOV 

CLR 
CLR 



KYBCTL 

2$ 

1$ 

EXEC 

*-1 .KYBCTL 

#TEST5.$LPADR 

#TEST5.$LPERR 

#5.$TSTNM 
#STACK.SP 
#1.$TIMES 



PERFORMING ONLY SINGLE TESTS ? 
BR IF NOT 

BR IF JUST ENTERED TEST 
RETURN ft GET NEXT TEST NUMBER 
SET SINGLE TEST INDICATOR 
SETUP SCOPE LOOP ADDRESS 
SETUP ERROR LOOP ADDRESS 

MOVE #5 TEST NUMbER 
SETUP THE STACK POINTER 
;D0 1 ITERATION 



TIMES .-CLEAR THE TIMEOUT VALUE SIORAGE LOCATION 

TIMEBP ;CLEAR THE + 251 TOLERANCE LOCATION 



START THE TIMER 



CLR TIME 

MOV #2000. .WATCH 



.-CLEAR THE ELAPSED TIME COUNTER 
.-SET WATCH TO 2000. MS 



; SEIZE THE DRIVE THROUGH PORT B 



64$: 



6S$: 



MOVB 

MOV 

CLR 

MOVB 

MOV 

MOV 

MOV 

MOV 

ADD 

CLR 

CMP 

BtQ 

EMT 

JMP 

MOVB 

MOV 

MOV 

MOV 

MOV 

COM 

MOV 

BIC 

CMP 

BEO 

EMT 

NOP 



PORTS. RMCS2(R0) .-SELECT PORT B 
PORTS, SEIZPT .-STORE SEIZING PORT'S ADDRESS 
RMDS(RO) .-WRITE RMDS 

P0RTA,RMCS2(R0) .-SELECT PORT A 

PORTA. PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPE OUT 



PORTA.OPPRT 
RMDS(RO) ,$8DDAT 
R0.S8DADR 
*RMDS,$BDADR 
SGDDAT 

$GDDAT,$8DDAT 

64$ 

30 

4$ 



'OPPOSITE' PORT ADDRESS 
SEE IF DRIVE SEIZED BY PORT B 
RH/RM BASE ADDRESS 
GENERATE BAD REGISTER ADDRESS 
REGISTER SHOULD BE ZERO 
IS THE REGISTER ZERO 
BR IF IT IS 

.-BYPASS REST OF THF SUBTEST 



PORT8.RMCS2(R0) .-SELECT PORT B 

PORTS, PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
RMDS(RO) ,$BDDAT ;SEE IF SEIZING PORT SEES CORRECT STATUS 
#MOL !PGM!DPR!DRY!VV,$GDDAT .'EXPECTED STATUS 
$GDDAT,$TMP1 ;USE GOOD DATA AS A MASK 



$TMP1 
$8DDAT,$TMP0 
$TMP1,$TMP0 
$GDDAT.$TMPO 
65$ 
31 



COMPLEMENT THE EXPECTED STATUS 
SAVE THE ACTUAL STATUS 
CLEAR UNWANTED BITS 
ARE THE EXPECTED STATUS BITS SET ? 
BR IF THEY ARE 



.WAIT FOR PORT B TO TIMEOUT 



B 4 

ZRMSBO RM05/3/2 DU «>OR T ST 2 MACRO V04.00 4-APR-81 18-08:36 PAGE 10-11 
S MEASJRE THE TIMEOUT ONE-SHOT THROUGH PORT B 



SEO 0040 



007254 
007262 
007270 
007274 
007276 
007302 
007304 
007306 
007312 
007320 
007324 
007326 



007332 
007340 
007342 



007344 



007344 
007350 
007356 
007362 
00/370 
007376 
007404 
007412 
007420 
007426 
007434 
007442 
007450 
007456 
007460 
007464 
00 7466 
007470 
007474 
007502 
007510 
007516 
007522 
007524 
007532 
007540 
007546 
007552 
007554 
007562 
007570 
007576 



113760 
01 3737 
005760 
001006 
005737 
001372 
104006 
000137 
013737 
004537 
001262 
012637 



023727 
103001 
104007 



005037 
012737 
060037 
012737 
113760 
016037 
013737 
042737 
113760 
016037 
013737 
042737 
023737 
001006 
005737 
001045 
104034 
000137 
013737 
013737 
113760 
005737 
001414 
013737 
013737 
11 '760 
005737 
001012 
012737 
012760 
012760 
104035 



001 224 
001224 
000012 

001254 



007344 
0O1252 
013572 

001264 



000010 
001234 



1$: 



001250 
000012 
001122 
01 1 700 
001224 
000012 
001170 
100100 
001226 
000012 
001172 
100100 
001164 

001164 



007670 
001 1 70 
001226 
001226 
001164 

001224 
001 1 72 
001224 
001166 

\77777 
00001 1 
000013 



001262 2$: 



001262 000764 



001122 

001124 
000010 
001170 
001164 
001164 
000010 
001172 
001166 
001166 
001166 



001126 
001234 
000010 



001234 
001126 
000010 



001250 
000000 
000000 



wove 

MOV 

TST 

BNE 

TST 

BNE 

EMT 

JMP 

MOV 

JSR 

.WORD 

MOV 



PORTA. RMCS2(R0) ."SELECT PORT A 

PORTA. PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 



RMDS(RO) 
2% 

WATCH 
1$ 
6 
3$ 

TJME.TJMEB 

R5.T0LER 

TJME8 

(SP)+.TJMEBP 



WAJT FOR THE DRIVE TO TIMEOUT 
BR WHEN TIMEOUT OCCURS 
CHECK WATCH 
BR IF NOT ZERO 

BYPASS THE REST OF THE TEST 
SAVE THE ELAPSED TIME FOR PORT B 
CALCULATE THE TOLERANCE 
TIMEOUT VALUE FOR PORT B 
+25Z TOLERANCE 



.-VERIFY THAT THE TIMEOUT ONE-SHOT VALUE IS AT LEAST 500 MS 



CMP 

BHIS 

EMT 



TIMES, #500. 
3$ 

7 



;IS TIMEOUT VALUE AT LEAST 500 MS ? 
;8P IF IT IS 



.■VERIFY THAT THE DRIVE RETURNED TO NEUTRAL AFTER PORT B TIMED OUT 
3$: 

; VERIFY THAT THE DRIVE IS IN NEUTRAL 



66$: 



67$: 



CLR 


RELERR 


CLEAR THE 'RELEASE ERROR ' INDICATOR 




MOV 


0RMDS . $BDADR 


FORM THE ADDRESS OF RMDS FOR TYPEOUT 




ADD 


R0.S8DADR 


■ADD THE I/O BASE ADDRESS 




MOV 


#MOL ! PGM ! DPR ! DRY 


VV,$GDDAT ; COMPARISON CONSTANT 




MOVB 


PORTA, RMC^CRO) 


•SELECT PORT A. 




MOV 


RMDS(RO). >TMP2 


•GET THE DRIVE STATUS REGISTER FROM PORT 
•COPY IT INTO '$TMPO' 


A. 


MOV 


$TMP2,$TMf 3 0 




BIC 


#ATA!VV,$TMPO 


■CLEAR PORT DEPENDENT BITS FROM THE COPY 




MOVB 


PORTS, RMCS2(R0) 


•SELECT PORT B. 




MOV 


RMDS(R0),$TMP3 


•GET THE DRIVE STATUS REGISTER FROM PORT 
•COPY IT INTO *$TMP1 * 


B. 


MOV 


$TMP3,$TMP1 




BIC 


0ATA! VV,$TMP1 


•CLEAR PORT DEPENDENT BITS FROM THE COPY 




CMP 


$TMP0,$TMP1 


•IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 


BNE 


66$ 


•BR IF NOT 




TST 


$TMPO 


•REGISTERS ARE THE SAME: ARE THEY ZERO ? 




BNE 


68$ 


•BR IF NOT 




EMT 


34 






JMP 


70$ 


•BYPASS THE REST OF THE CHECKS 




MOV 


$TMP2,$8DDAT 


•SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 


MOV 


PORTS, PTNBR 


•SEIZING PORT IF TEST SHOWS DRIVE NOT IN 


NEUTRAL 


MOVB 


PORTS, RMCS2CR0) 


•SELECT PORT B. 




TST 


$TMPO 


SEE IF STATUS EQ 0 FROM PORT A. 




BEO 


67$ 


•BR IF ZERO 




MOV 


PORTA. PTNBR 


•SEIZING PORT IF TEST SHOWS DRIVE NOT IN 
•'BAD DATA' FOR ERROR TYPE OUT 


NEUTRAL 


MOV 


$TMP3,$BDDAT 




M0V8 


PORTA, RMCS2(R0) , 


•SELECT PORT A. 




TST 


$TMP1 


SEE IF STATUS EQ ZERO FROM PORT B. 




BNE 


68$ 


BR IF NOT 




MOV 


#-1 , RELERR 


SET 'RELEASE ERROR' INDICATOR 




MOV 


#11,RMCS1(R0) 


CLEAR THE DRIVE 




MOV 


013.RMCSKRO) 


RELEASE THE DRIVE 




EMT 


35 
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SEO 0041 



159 
160 
177 
178 



007600 
007606 
007614 
007622 
007630 
007632 
007634 
007642 
007650 
007656 
007664 
007666 
007670 
007672 



179 
180 



007674 
CO 7674 
007700 
007702 
007704 
007710 
007716 
0C7724 
007732 
007732 
007740 
007744 



007752 
007760 
007764 
007772 
010000 
010006 
010012 
010020 



013737 
013737 
042737 
023737 
001401 
104037 
013737 
013737 
042737 
023737 
001401 
104037 
000240 
000004 



005737 
001406 
100002 
000137 
012737 
012737 
012737 

112737 
012706 
012737 



113760 
005060 
012760 
012760 
113760 
005060 
012760 
012760 



001266 



002622 
\77777 
007732 
007732 

000006 
001100 
000001 



001224 
000012 
00001 1 
000013 
001226 
000012 
000011 
000013 



OOl 1 70 


AA1 1 O^. 

001 1^6 


O0>: 


PTJV 




1 AAV CAD DTT CATl llDTC UUCU DMTNC DC Aft 

LUUK r UH oil rAILUKLo WntN HnUb Ht AD 


001224 


001<:5«» 




MOW 

nuv 




> ruAUrC DAD T fltfDCD 

DON'T CHECK THE ATTN BIT 


l ooooo 


AA1 1 7ft 




a J I 




0011Z4 


AA1 1 *7A 
OOl 1 IV 




run 

Lrr 




• All D I T C AV *> 

ALL 01 I o UK . 






BEO 
EMT 


69$ 

37 


BR IF OX FROM PORT A. 


001172 


001126 


69$: 


MOV 


$TMP3.$BDDAT 


CHECK RMDS FOR BIT FAILURES - FROM PORT 


AA1 

001 CCO 


AA1 17/ 

OOl c 34 




MOW 

nuv 




LMAnJuc run I iNurotn 
;D0N'T CHECK THE ATTN BIT 


I uuwu 


UU life 




Oil 


#ATA.$TMP3 


001124 


001172 


70$: 


CMP 
BEO 
EMT 
NOP 


$GDDAT,$TMP3 
70$ 

37 


;SEE IF READ OK FROM PORT B. 
;BR IF OK 






4$: 


SCOPE 


;L00P ? 



001266 
001106 
001110 

001102 

001 1 76 

000010 

000000 
000000 
000010 

000000 
000000 



•A***************************************************** ***»**»• 

West 6 

* 



TEST 'PORT SELECT' SWITCH. DRIVE CYCLED UP 



•TEST THE OPERATION OF THE 'PORT SELECT* SWITCH (DRIVE CYCLED UP). 
* 

* A. SWITCH TO PORT 'A' POSITION. VERIFY THAT THE DRIVE IS IN 

NEUTRAL AND THAT THE STATUS BITS IN RMDS. AS READ THROUGH BOTH 
PORTS. ARE CORRECT. 



* 
* 

* B 
* 

* C 
* 
* 

•a************************************************************** 



SWITCH TO PORT 'B' POSITION. VERIFY THAT THE DRIVE IS IN 
NEUTRAL AND THAT THE STATUS BITS IN RMDS. AS READ THROUGH BOTH 
PORTS. ARE CORRECT. 

RETURN THE 'PORT SELECT' SWITCH TO THE 'A/8' POSITION. VERIFY 
THE DRIVE STATE. 



TST6: 



1$: 
2$: 

TEST6: 



TST KY8CTL 

BEO 2$ 

BPL 1$ 

JMP EXEC 

MOV #-1 .KYBCTL 

MOV #TEST6,$LPADR 

MOV *TEST6.$LPERR 

MOVB #6.$TSTNM 

MOV 0STACK.SP 

MOV #1.$TIMES 



PERFORMING ONLY SINGLE TESTS : 
BR IF NOT 

BR IF JUST ENTERED TEST 
RETURN & GET NEXT TEST NUMBER 
SET SINGLE TEST INDICATOR 
SETUP SCOPE LOOP ADDRESS 
SETUP ERROR LOOP ADDRESS 

MOVE #6 TEST NUMBER 
SETUP THE STACK POINTER 
;D0 1 ITERATION 



.-CLEAR ATTENTION BITS FOR BOTH PORTS 



MOVB PORTA.RMCS2(R0) 

CLR RMDS(RO) 

MOV #11,RMCSKR0) 

MOV #13,RMCS1(R0) 

MOVB PORT8.RMCS2(R0) 

CLR RMDS(RO) 

MOV #11.RMCS1(R0) 

MOV #13.RMCSKR0) 



SELECT PORT #A 
SEIZE THE DRIVE 
ISSUE DRIVE CLEAR 
RELEASE THE DRIVE 
SELECT PORT *B 

SEIZE THE DRIVE THROUGH PORT '8' 
ISSUE DRIVE CLEAR 
RELEASE THE DRIVE 



D 4 

r ZRMS80 RM05/3/2 DU POR 1ST 2 MACRO V04.00 4 -APR -81 18:08:36 PAGE 10-13 
T6 TEST 'PORT SELECT' SWITCH. DRIVE CYCLED UP 



SCO 0042 



1 81 010026 
^2 010032 
183 010036 
184 
185 

010040 
010044 
010052 
010056 
010064 
010072 
010100 
010106 
010114 
010122 
010130 
010136 
010144 
0^0152 
010154 
010160 
010162 
010164 
010170 
0101/6 
010204 
010212 
010216 
010220 
010226 
010234 
01024? 
010246 
010250 
010256 
010264 
010272 
010274 
010302 
010310 
010316 
010324 
010326 
010330 
010336 
010344 
010352 
010360 
010362 
010364 

186 010366 

187 010372 

188 010376 
189 

'90 



104401 
104401 
000000 



005037 

012737 

060037 

012737 

113760 

016037 

013737 

042737 

113760 

016037 

013737 

042737 

023737 

001006 

005737 

001045 

104034 

00013/ 

013737 

013737 

113760 

005737 

001414 

013737 

013737 

1 1 3760 

005737 

001012 

012737 

012760 

012760 

104017 

013737 

013737 

042737 

023737 

001401 

104037 

013737 

013737 

042737 

023737 

001401 

104037 

000240 

104401 

104401 

000000 



020224 
020316 



001250 
000012 
001122 
011700 
001224 
000012 
001170 
100100 
001226 
000012 
001172 
100100 
001164 

001164 



010364 
001170 
001226 
001226 
001164 

001224 
001 1 72 
001224 
001166 

M7177 
00001 1 
000013 

001 1 70 
001224 
100000 
001124 



001 1 72 
001226 
100000 
001124 



020261 
020316 



TYPE 
TYPE 
HALT 



.SWTCHA 
.CONTUE 



.-SWITCH TO 'A* 
.-PRESS "CONTINUE' 



00H22 

001124 
000010 
001170 
001164 
001164 
000010 
001172 
001166 
001166 
001166 



001126 
001234 
000010 



001234 
001126 
000010 



001250 
000000 
000000 

001126 
001234 
001 1 70 
001 1 70 



001126 
001234 
OO 1 1 72 
001172 



.-VERIFY THAT THE DRIVE IS IN NEUTRAL 



CLR RELERR 

MOV #RMDS.$8DADR 

ADD R0.S8DADR 

MCV #MOL ! PGM ! DPR . DRY 

M0V8 PORTA. RMCS2(R0) 

MOV RMDS(R0).$TMP2 

MOV STMP2.STMP0 

BIC #ATA!VV.$TMP0 

M0V8 P0RT8.RMCS2(R0) 

MOV RMDS(R0).$TMP3 

MOV $TMP3.$TMP1 

BIC #ATA.'VV.$TMP1 

CMP $TMP0.$TMP1 

8NE 64S 

TST $TMPO 

BNE 66$ 

EMT 34 

JMP 68$ 

64$: MOV $TMP2.$BDDAT 

MOV PORTS. PTNBR 

MOVB P0RTB.RMCS2(R0) 

TST $TMPO 

BEO 65$ 

MOV PORTA. PTNBR 

MOV $TMP3,$BDDAT 

MOVB PORTA. RMCS2(R0) 

TST $TMP1 

BNE 66$ 

65$: MOV #-1 .RELERR 

MOV /H1.RMCSUR0) 

MOV *13.RMCSKR0) 

EMT 17 

66$: MOV $TMP2,$8DDAT 

MOV PORTA, PTNBR 

BIC #ATA.$TMP2 

CMP $GDDAT.$TMP2 

BEO 67$ 

EMT 37 

67$: MOV $TMP3,$8DDAT 

MOV PORTS. PTNBR 

BIC #ATA.$TMP3 

CMP $GDDAT.$TMP3 

BEO 68$ 

EMT 37 

68$ : NOP 

TYPE .SWTCHB 

TYPE .CONTUE 
HAl T 



CLEAR THE 'RELEASE ERROR ' INDICATOR 
FORM THE ADDRESS OF RMDS FOR TYPE OUT 
ADD THE I/O BASE ADDRESS 
VV.$GDDAT .-COMPARISON CONSTANT 
SELECT PORT A. 

GET THE DRIVE STATUS REGISTER FROM PORT A. 
COPY IT INTO '$TMPO' 

CLEAR PORT DEPENDENT BITS FROM THE COPY 
SELECT PORT B. 

GET THE DRIVE STATUS REGISTER FROM PORT B. 
COPY IT INTO '$TMP1' 

CLEAR PORT DEPENDENT BITS FROM THE COPY 

IS THE STATUS REGISTER THt SAME FROM BOTH PORTS 

SR IF NOT 

REGISTERS ARE THE SAME: ARE THEY ZERO "> 
SR IF NOT 

BYPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
SELECT PORT B. 

SEE IF STATUS EQ 0 FROM PORT A. 
BR IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
'SAD DATA* FOR ERROR TYPE OUT 
SELECT PORT A. 

SEE IF STATUS EQ ZERO FROM PORT B. 
BR IF NOT 

SET 'RELEASE ERROR' INDICATOR 
CLEAR THE DRIVE 
.RELEASE THE DRIVE 

LOOK FOR BIT FAILJRES WHEN RMDS READ 

CHANGE PORT NUMBER 

DON'T CHECK THE ATTN BIT 

ALL BITS OK ? 

BR IF OK FROM PORT A. 

CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
CHANGE PORT NUMBER 
DON'T CHECK THE ATTN BIT 
SEE IF READ OK FROM PORT B. 
SR IF OK 



.-SWITCH TO '8' 
.-PRESS 'CONTINUE' 



.-VERIFY THAT T HE DRIVE IS IN NEUTRAL 



E 4 

ZRMSBO RM05/3/2 DU POR T ST 2 MACRO V04.00 4-APR-81 18:08:36 PAGE 10-^ 
f. T EST 'PORT SELECT' SWITCH, DRIVE CYCLED <P 



010400 
010404 
3KK12 
010416 
010424 
010432 
010440 
010446 
010454 
010462 
010470 
010476 
010504 
010512 
010514 
010520 
010522 
010524 
010530 
0*0536 
010544 
010552 
010556 
010560 
010566 
010574 
010602 
010606 
010610 
010616 
010624 
010632 
010634 
010642 
010650 
010656 
010664 
010666 
010670 
010676 
010704 
010712 
010720 
010722 
010724 

191 010726 

192 010732 

193 010734 

194 010740 
195 

321 
322 



005037 
012737 
060037 
012737 
113760 
016037 
013737 
042737 
1 1 3760 
016037 
013737 
042737 
023737 
001006 
005737 
001045 
104034 
000137 
013737 
013737 
113760 
005737 
001414 
013737 
013737 
113760 
005737 
001012 
012737 
012760 
012760 
104020 
013737 
013737 
042737 
023737 
001401 
104037 
013737 
013737 
042737 
023737 
001401 
104037 
000240 
005737 
001402 
104401 
000004 



001250 
000012 
001122 
011700 
001224 
000012 
001170 
100100 
001226 
000012 
001172 
100100 
001164 

001164 



010724 
001 1 70 
001226 
001226 
001164 

001224 
001 1 72 
001224 
001166 

■\77777 
00001 1 
000013 

001 1 70 
001224 
100000 
001124 



001 1 72 
001226 
100000 
001124 



001266 
020156 



001122 

001124 
000010 
001170 
001164 
001164 
000010 
001 1 72 
001166 
001166 
001166 



001126 
001234 
000010 



001234 
001126 
000010 



001250 
000000 
000000 

001126 
001234 
001170 
001 1 70 



001126 
001234 
001 1 72 
001172 



CLR RELERR 

MOV #RMDS.$8DADR 

ADD R0.S8DADR 

MOV *MOL.'PGM!DPR.DRY 

M0V3 PORTA.RHCS2CR0) 

MOV RMDS(R0).STMP2 

MOV $TMP2.$TW>0 

81 C #ATA!VV.$TMPO 

MOVB PORTS. RMCS2(R0) 

MOV RMDS(R0).$TMP3 

MOV STMP3.STMP1 

BiC #mTA!VV.$TMP1 

CMP STMP0.STMP1 

BNE 69$ 

TST $TMPO 

BNE 71$ 

EMT 34 

JMP 73$ 

69$: MOV $TMP2.$BDDAT 

MOV PORTS. PTNBR 

MOVB P0P18,RMCS2(RC) 

TST $TMPO 

BEQ 70$ 

MOV PORTA, PTNBR 

MOV $TMP3.$BDDAT 

MOVB PORTA. RMCS2(R0) 

TST $TMP1 

BNE 71$ 

70$: MOV #-1 .RELERR 

MOV *11.RMCS1 (RO) 

MOV *13.RMCS1 (RO) 

EMT 20 

71$: MOV $TMP2,$BDDAT 

MOV PORTA, PTNBR 

BIC #ATA.$TMP2 

CMP $6DDAT.$TMP2 

BEQ 72$ 

EMT 37 

72$: MOV $TMP3,$BDDAT 

MOV PORTS. PTNBR 

BIC #ATA.$TMP3 

CMP $GDDAT.$TMP3 

BEO 73$ 

EMT 37 

73$: NOP 

TST KY8CTL 

BEO 1$ 

TYPE .SWTCHN 

1$: SCOPE 



CLEAR THE 'RELEASE ERROR 1 INDICATOR 
FORM THE ADDRESS OF RMDS FOR TYPE OUT 
ADD THE I/O BASE ADDRESS 
VV.$GDDAT ; COMPARISON CONSTANT 
SELECT PORT A. 

GET THE DRIVE STATUS REGISTER F ROM PORT A. 
COPY IT INTO '$TMPO' 

CLEAR PORT DEPENDENT BITS FROM THE COPY 
SELECT PORT B 

GET the DRivE*STATUS REGISTER FROM PORT B. 
COPY IT INTO ' STMP1 ' 

CLEAR PORT DEPENDENT BITS FROM THE COPY 
IS THE STATUS 
BR IF NOT 
REGISTERS ARE 
BR IF NOT 



REGISTER THE SAME FROM BOTH PORTS 
THE SAME: ARE THEY ZERO .' 



BYPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA ^R ERROR MESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
SELECT PORT B, 

SEE IF STATUS EQ 0 FROM PORT A. 
BR IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
•BAD DATA' FOR ERROR TYPE OUT 
SELECT PORT A. 

SEE IF STATUS EQ ZERO FROM PORT B. 
SR IF NOT 

SET 'RELEASE ERROR* INDICATOR 
CLEAR THE DRIVE 
RELEASE THE DRIVE 

LOOK FOR BIT FAILURES WHEN RMDS READ 

CHANGE PORT NUMBER 

DON'T CHECK THE ATTN BIT 

ALL BITS OK ? 

BR IF OK FROM PORT A. 

CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
CHANGE PORT NUMBER 
DON'T CHECK THE ATTN BIT 
SEE IF READ OK FROM PORT B. 
BR IF OK 



SINGLE TEST MODE ? 
BR IF NOT 

RETURN SWITCH TO ' A/B' 
LOOP ? 



•TEST 7 



TEST ' PORT SELECT' SWITCH ON PORT A 



•TEST THE OPERATION OF THE 'PORT SELECT ' SWITCH (DRIVE CYCLED DOWN) . 



rZRMSBO RM05/3/2 DU POR TST 2 MAC TO V04.00 
T7 TEST 'PORT SELECT* SWITCH ON PORT A 



F 4 

4-APR-81 18:08:36 PAGE TO-'S 



A. 
8. 

C. 
D. 

E. 



SEQ 0W4 



CYCLE THE DRIVE DOWN. 

SWITCH TO PORT A POSITION. VERIFY ("HAT THE DRIVE IS IN 
NEUTRAL AND THAT THE STATUS BITS IN RMDS. AS READ THROUGH BOTH 
PORTS. ARE CORRECT. 

SWITCH THE 'PORT SELECT* SWITCH TO A; CYCLE THE DRIVE UP. 

WHEN THE DRIVE CYCLES UP. VERIFY THAT 'VV-A IS RESET. AND 
THAT 'ATA-A IS SET. 

ISSUE A DRIVE CLEAR COMMAND AND A READIN PRESET COMMAND THROUGH 
PORT A. 

VERIFY THAT THE DRIVE CANNOT BE ACCESSED THROUGH PORT B AND 
'NED' SETS WHEN ATEMPTING TO ACCESS THE DRIVE THROUGH 
PORT B. ATTEMPT TO SET PORT REQUEST BY WRITING O'S 
INTO RMDS THROUGH PORT B. 



ISSUE A RELEASE COMMAND THROUGH PORT A. 
DRIVE REMAINS LOCKED ON PORT A. 



VERIFY THAT THE 



010742 








7ST7: 




010742 


0C5737 


001266 






TST 


010746 


001406 








BEG 


010750 


100002 








BPL 


010752 


000137 


002622 






JMP 


010756 


012737 


^77777 


001266 


1$: 


MOV 


010764 


012737 


011000 


001106 


2$: 


MOV 


010772 


012737 


011000 


001110 




MOV 


011000 








TEST7: 




0110C0 


112737 


000007 


001102 




M0V8 


011006 


012706 


001100 






MOV 


011012 


012737 


000001 


001 1 76 




MOV 


01 1020 


113760 


001224 


000010 




M0V8 


011026 


013737 


001224 


001234 




MOV 


011034 


104401 


020367 






TYPE 


011040 


104401 


020224 






TYPE 


011044 


104401 


020407 






TYPE 


011050 


032760 


010000 


000012 


1$: 


BIT 


011056 


001374 








BNE 


011060 


032760 


010000 


00001? 


2$: 


BIT 


011066 


001774 








BEG 



KY8CTL 

2$ 

1$ 

EXEC 

#-1.KYBCTL 

#TEST7.$LPADR 

#TEST7.$LPERR 

#7.$TSTNM 
#STACK,SP 
#1.$TIMES 



PERFORMING ONLY SINGLE TESTS • 
8R IF N0 T 

8R IF JUST ENTERED TEST 
RETURN & GET NEXT TEST NUMBER 
SET SINGLE TEST INDICATOR 
SETUP SCOPE LOOr ADDRESS 
SETUP ERROR LOOP ADDRESS 

MOVt #7 TEST NUMBER 
SETUP THE STACK POINTER 
;D0 1 ITERATION 



PORTA. RMCS2CR0) .-SELECT PORT A 

PORTA. PTN6R ;MOVE PORT ADDRESS TO LOCATION FOR TYPE OUT 
.CYCLED .-'CYCLE DOWN THE DRIVE' 

.SWTCHA .-SWITCH TO 'A' 

.CYCLEU ; 'CYCLE UP THE DRIVE' 



*MOL.RMDS(R0> 
1$ 

*MOL.RMDS(R0) 
2$ 



IS 'MOL' RESET ? 

BR IF NO (DRIVE NOT CYCLED DOWN) 

IS 'MOL ' SET ? 

8R IF NO (DRIVE NOT CYCLED UP) 



.-DRIVE IS CYCLED UP. CHECK STATUS THROUGH PORT A 

011070 005037 001244 CLR CKERR .-CLEAR THE ' CHECK ERROR' INDICATOR 

011074 016037 000012 001126 MOV RMDS(RO) .SBDDAT ;GET CONTENTS OF RMDS 

011102 012737 000012 001122 MOV #RMDS.SBDADR .-FORM REGISTER ADDRESS OF ERROR MESSAGE 

011110 060037 001122 ADD R0.S8DADR .ADD RH/RM BASE ADDRESS 

011114 012737 ' 10600 001124 MOV fATA.'MOL .DPR.'DRY.SGDDAT .-WHAT REGISTER SHOULD BE 

011122 013737 001126 001164 MOV S8DDAT.$TMP0 ;M0VE REGISTER CONTENTS TO '$TMP0' 

011130 042737 066077 001164 SIC #*C1 1 1 700.STMP0 ;SAVE SPECIFIED BITS 

0"i36 023?37 OCT 124 001164 CMP tGDDAT ,$TMP0 .-COMPARE THE BITS 



.'RMiBC RMGS/3/2 DU POft TS T 2 MACRO V04.00 
■/ T EST 'PORT SELECT ' SWITCH ON PORT A 



4-APR-81 18:08:36 PAGE 



A 

10-16 



SFO 0045 



01 1 144 
011K6 
011154 
011162 
011170 
011172 
011176 



001414 
013737 
042737 
053737 
104021 
005137 
000240 



011200 012760 
011206 012760 
01 1 214 012760 



011222 
011230 
0*1236 
01 1242 
011250 
011256 
011262 
011266 
011274 
011302 
011310 
011312 
011320 
011326 
011334 
011336 
011342 
011344 
011350 
01 1356 
011364 
011370 
011376 
011404 
011412 
011420 
011422 
011430 
011436 
011444 
011446 
011452 
011454 



Ci 1460 
C1H66 
01 H74 



113760 
013737 
005037 
016037 
012737 
060037 
005037 
013737 
042737 
023737 
001414 
013737 
042737 
053737 
104022 
005137 
000240 
005037 
016037 
012737 
060037 
012737 
013737 
0<.2737 
023737 
001414 
013737 
042737 
053737 
104023 
005137 
000240 
005060 



1 1 3760 
013737 
012760 



001126 
111700 
001174 

001244 



000011 
000021 
010000 



001226 
001226 
001244 
000012 
000012 
001122 
001124 
001126 
000077 
001124 

001126 
1 77700 
001174 

001244 

001244 
000010 
000010 
001122 
010000 
001126 
167777 
001124 

001126 
010000 
001 1 74 

001244 

000012 



001224 
001224 
000013 



001174 
001174 
001124 



000000 
000000 
000032 



000010 
001234 

001126 
00112? 



001164 
001164 
001164 

001 1 74 
001 1 74 
001124 



001126 
001122 

001124 
001164 
001164 
001164 

001 1 74 
001 1 74 
0C1124 



64$: 



BEO 
MOV 

BIC 
BIS 

Em 

COM 
NOP 



64$ 

$8DDAT.$TMP4 

#111700.$TMP4 

$TMP4.$GDDAT 

21 

CKERR 



;8R IF OK 
.COPY 'BAD 
.•CLEAR THE 
; 'OR* WITH 



DATA' 

MASKED BITS 
GOOD DATA FOR 



TVPEOUT 



;SET VOLUME VALID FOR POPT A 

MOV #1 1 .RMCS1 <R0) 
MOV #21.RMCSKR0) 
MOV #FMT16.RMOF(R0> 



;SET THE REGISTER COMPARt ERROR INDICATOR 



ISSUE A DRIVE CLEAR 
ISSUE A READIN PRESET 
SET FMT16 



; CHECK THE DRIVE STATUS THROUGH PORT B; VERIFY THAT 'NED' 
.-SETS WHEN THE DRIVE IS ACCESSED THROUGH PORT B. 



66$: 



68$: 



M0V8 

MOV 

CLR 

MOV 

MOV 

ADD 

CLR 

MOV 

BIC 

CMP 

BEQ 

MOV 

BIC 

BIS 

EMT 

COM 

NOP 

CLR 

MOV 

MOV 

ADD 

MOV 

MOV 

BIC 

CMP 

BEQ 

MOV 

BIC 

BIS 

EMT 

COM 

NOP 

CLR 



PORTS, RMCS2(R0) .-SELECT PORT B 

P0PT8.PTNBR .-MOVE PORT ADDRESS TO LOCATION FOR TYPE OUT 
CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS(RO) ,$BDDAT ;GET CONTENTS OF RMDS 
*RMDS,$BDADR .FORM REGISTER ADDRESS OF ERROR MESSAGE 
R0.$8DADR .-ADD RH/RM BASE ADDRESS 

$GDDAT ; WHAT REGISTER SHOULD BE 

$8DDAT,$TMP0 ;MOVE REGISTER CONTENTS TO '$TMPO' 
**C1 77700, $TMPO ;SAVE SPECIFIED BITS 
.-COMPARE THE BITS 
;BR IF OK 
.-COPY 'BAD DATA' 
.-CLEAR THE MASKED BITS 
;'0R' WITH GOOD DATA FOR TYPEOUT 



$GDDAT.$TMPO 
66$ 

$8DDAT,$TMP4 
#1 77700. $TMP4 
$ T MP4.$GDDAT 

22 
CKERR 



.-SET THE REGISTER COMPARE ERROR INDICATOR 



CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

RMCS2(R0).$BDDAT ;GET CONTENTS OF RMCS2 
*RMCS2.$BDADR .-FORM REGISTER ADDRESS OF ERROR MESSAGE 



R0,$8DADR 
#NED.$GDDAT 
$8DDAT,$TMP0 
# A CNED.$TMPO 
$GDDAT.$TMPO 
68$ 

$8DDAT.$TMP4 

*NED.STMP4 

$TMP4,$GDDAT 

23 

CKERR 
RMDS(RO) 



.-ADD RH/RM BASE ADDRESS 
;WHAT REGISTER SHOULD BE 

.-MOVE REGISTER CONTENTS to '$TMPO' 
.SAVE SPECIFIED BITS 
; COMPARE THE BITS 
;BR IF OK 
.-COPY 'BAD DATA' 
.-CLEAR THE MASKED BITS 
; ' OR ' WITH GOOD DATA FOR TYPEOUT 

;SET THE REGISTER COMPARE ERROR INDICATOR 

; TRY TO SET REQUEST BY WRITING THROUGH 
.-THE LOCKED OUT PORT (PORT 'B') 



000010 
001234 
000012 



; VERIF Y THAT DRIVE STAYS LOCKED ON PORT A 

M0V8 PORTA, RMCS2(R0) .'SELECT PORT A 

MOV PORTA. PTNBR .-MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV #13.RMDS<R0) .-ISSUE A HELEASE THROUGH PORT A 



:*«,fk. RMOS/3/2 Du POP IS* 2 MA.RO *04.00 
' 'ESI 'PORT SELECT" SwPCm ON PORT A 



H A 
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01 1 502 


013737 


001224 


001236 


MOV 


011510 


113760 


001226 


000010 


MOVB 


0*1516 


013737 


001226 


001234 


NOV 


011524 


005037 


001244 




CLR 


011530 


016037 


000012 


001126 


MOV 


011536 


012737 


000012 


0C1 1 22 


WOi/ 


011544 


060037 


001122 




ADD 


011550 


005037 


001124 




CLR 


011554 


013737 


001126 


001164 


MOV 


011562 


042737 


000077 
001124 


001164 


BIC 


011570 


023737 


001164 


CMP 


011576 


001414 






BEQ 


011600 


013737 


001126 


001 1 74 


MOV 


011606 


042737 


1 77700 


001 1 74 


BIC 


011614 


053737 


001 1 7U 


001124 


BIS 


011622 


1 04024 






EMT 


011624 


005137 


001244 




COM 


011630 


000240 




70$: 


NOP 



011632 
011636 
011640 
011646 
011650 
011654 
011660 
011664 
011670 
011672 
011700 
01 1 702 
01 1 706 
011712 
011716 
011724 
011732 
011740 
011742 
011750 



011752 
01 1 760 
011766 
011774 
012002 
012010 
012016 
012024 
012032 
012040 
012044 
012046 
0VO5O 



PORTA.SEIZPT .-ADDRESS OF 'LOCKED ON' PORT 
PORT8.RMCS2<R0) ."SELECT PORT B 

P0RT8.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPFOuT 
CKERR .-CLEAR THE 1 CHECK ERROR' INDICATOR 

RMDS(R0).$8DDA7 ;GET CONTENTS OF RMDS 
#RMDS.$8DADR .FORM REGISTER ADDRESS OF ERROR MESSAGE 
RO , S8DADR .ADD RH/RM BASE ADDRESS 

$GDDAT .WHAT REGISTER SHOULD BE 

$8DDAT.$TMP0 .-MOVE REGISTER CONTENTS TO '$TMPO' 
#*C177700.$TMP0 ; SAVE SPECIFIED BITS 
.-COMPARE THE BITS 
;BR IF OK 
.-COPY 'BAD DATA' 
.-CLEAR THE MASKED BITS 
.-'OR' WITH GOOD DATA FOR TYPEOUT 



$GDDAT.$TMPO 
70$ 

$BDDAT ,$TMP4 
#1 77700. $TMP4 
$TMP4.$GDDAT 

24 

CKERR 



;SET THE REGISTER COMPARE ERROR INDICATOR 



;IF ERROR OCCURRED. CHECK FOR LOOP ON TEST 



105737 

001412 
032777 
001 406 
105037 
005037 
0001 77 
005737 
001460 
032777 
001054 
104401 
104401 
104401 
113760 
013737 
032760 
001374 
032760 
001774 



012760 
012760 
012760 
113760 
013737 
012760 
012760 
012760 
012737 
005737 
001375 
000004 
000400 



001103 

001000 16727? 

001103 
001 1 76 
167224 
001266 

040000 167240 

020367 
020156 
020407 

001224 000010 
001224 001234 
010000 000012 

010000 000012 



3$: 



4$: 

5$: 



TSTB 

BEQ 

BIT 

BEQ 

CLRB 

CLR 

JMP 

TST 

BEQ 

BIT 

BNE 

TYPE 

TYPE 

TYPE 

M0V8 

MOV 

BIT 

BNE 

BIT 

BEQ 



$ERFLG 
3$ 

#SW09.3SWR 
3$ 

$ERFLG 
$TIMES 
a$LPERR 
KY8CTL 
6$ 

#SWK.aSWR 
6$ 

.CYCLED 
.SWTCHN 
.CYCLEU 

PORTA, RMCS2(R0) 



:ount 



DID AN ERROR OCCUR 
8R IF NOT 

SEE IF LOOP ON ERROR ( SWR9 - 1) 
BR IF NOT 
CLEAR THE 
CLEAR THE 
GO TO THE 
IN SINGLE 
8R IF NOT 
LOOP ON TEST ? 
8R IF LOOPING 
TYPE 'CYCLE DOWN* 
•SWITCH TO h/B' 
'CYCLE THE DRIVE 
SELECT PORT A 



ERROR FLAG 
MAX ITERATION 
LOOP ADDRESS 
TEST MODE ? 



UP' 



PORTA. PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 

' RESET ? 

(DRIVE NOT CYCLED DOWN) 
SET ? 
(DRIVE NOT 



#MOL.RMDS(R0) 
4$ 

#MOL.RMDS(RO) 
5$ 



IS 
BR 
IS 
8R 



'MOL ' 
IF NO 
'MOL ' 
IF NO 



CYCLED UP) 



.-SET VOLUME VALID FOR BOTH PORTS 



00001 1 
000021 
000013 
001226 
001226 
000021 
010000 
00001 3 
011610 
001254 



000000 
000000 
000000 
000010 
001234 
000000 
000032 
000000 
001254 



6$: 
7$: 



MOV 

MOV 

MOV 

PIOVB 

MOV 

MOV 

MOV 

MOV 

MOV 

TST 

BNE 

SCOPE 

BR 



#11.RMCS1(R0) .'ISSUE A 

#21 .RMCS1 (RO) .-ISSUE A 

#13,RMCS1(R0) .-RELEASE PORT A 

PORT8,RMCS2(R0) .-SELECT PORT B 
P0RT8, PTNBR ;MOVE PORT ADDRESS 

#21 .RMCS1 (RO) .-ISSUE A READIN 

#FMT16.RMOF(R0) ;SET FMT16 



DRIVE CLEAR THROUGH PORT A 
READIN PRESET THROUGH PORT A 



TO LOCATION FOR TYPEOUT 
PRESET THROUGH PORT 8 



#13.RMCS1(R0) 
#5000.. WATCH 
WATCH 
7$ 

TST10 



.-RELEASE PORT B 
.-SPINDLE MOTOR 'COOl DOWN* DELAY 
;F INSIHED ? 
;8R IF NOT 
.-LOOP ? 

;;G0 TO NEXT TfcS T 



JRMS80 RMG5/3/2 Do *>0R 1ST 2 MACRO V04.00 
7 'EST 'PQRT SELECT* SwHCM ON PORT A 
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323 



012052 
012052 
012056 
012060 
012062 
012066 
012074 
012102 
012110 
012110 
012116 
012122 

012130 
012156 
012144 

012150 
012154 

012160 
012166 

012170 



005737 
001406 
100002 
000137 
012737 
012737 
012737 

112737 
012706 
012737 

115760 
015757 
104401 
104401 
104401 

052760 
001374 
032760 



001266 



002622 
177777 
012110 
012110 

000010 
001100 
000001 

001226 
001226 
020367 
020261 
020407 

010000 

010000 



c. 

D. 



H. 



I. 



001266 
001106 
001110 

001102 

001176 

000010 
001234 



000012 
000012 



SEO 0047 



TEST 10 TEST 'PORT SELECT* SWITCH ON PORT 6 

TEST THE OPERATION OF THE "PORT SELECT* SWITCH (DRIVE CYCLED DOWN). 
A. CYCLE THE DRIVE DOWN. 

d. SWITCH TO PORT B POSITION. VERIFY THAT THE DRIVE IS IN 

NEUTRAL AND THAT the STATUS BITS IN RMDS. AS READ THROUGH BOTH 
PORTS. ARE CORRECT. 



TST10: 



1$: 
2%: 

TEST10: 



1$: 
21: 



SWITCH THE "PORT SELECT' SWITCH TO B; CYCLE THE DRIVE UP. 

WHEN THE DRIVE CYCLES UP. VERIFY THAT 'VV-8 IS RESET. AND 
THAT 'ATA-B IS SET. 

ISSUE A DRIVE CLEAR COMMAND AND A READIN PRESET COMMAND THROUGH 
PORT 8. 

VERIFY THAT THE DRIVE CANNOT BE ACCESSED THROUGH PORT A AND 
'NED* SETS WHEN ATEMPTINC TO ACCESS THE DRIVE THROUGH 
PORT A. ATTEMPT TO SET PORT REQUEST BY WRITING O'S 
INTO RMDS THROUGH PORT A. 



ISSUE A RELEASE COMMAND THROUGH PORT B. 
DRIVE REMAINS LOCKED ON PORT B. 



VERIFY THAT THE 



CYCLE THE DRIVE DOWN. CHANGE THE 
A/8; CYCLE THE DRIVE UP. 



'PORT SELECT ' SWITCH TO 



VERIFY THAT BOTH PORTS CAN ACCESS THE DRIVE , THAT BOTH ATTENTION 
BITS ARE SET. AND THAT BOTH 'W BITS ARE RESET. 



TST 
BEQ 
8PL 
JMP 
MOV 
MOV 
MOV 

M0V8 

MOV 

MOV 

M0V8 

MOV 

TYPE 

TYPE 

TYPE 

BIT 
BNE 

BIT 



KYBCTl 

2S 

1$ 

EXEC 

#-1.KVBCTL 

#TEST10,$LPADR 

#TEST10,$LPFRR 

♦10.STSTNM 

#STACK.SP 

fl.STIMES 



PERFORMING ONLY SINGLE TESTS : 
8R IF NOT 

8R IF JUST ENTERED TEST 
RETURN I GET NEXT TEST NUMBER 
SET SINGLE TEST INDICATOR 
SETUP SCOPE LOOP ADDRESS 
SETUP ERROR LOOP ADDRESS 

MOVE #10 TES T NUMBER 
SETUP THE STACK POINTER 
;D0 1 ITERATION 



PORTS. RMCS2(R0) .'SELECT PORT B 

P0RT8.PTNBR ;M0VE PORT ADDRESS TO LOCATION FOR TYPEOUl 



.CYCLED 
.SWTCHB 
.CYCLEU 

*M0L.RMDS<R0) 
*M0L.RMDS'R0) 



•CYCLE DOWN THE DRIVE ' 
SWITCH TO 'B' 
'CYCLE UP THE DRIVE ' 



IS 'MOL' RESET ' 
BR if NO (DRIVE 
IS 'MOL * SET ? 



NOT CYCLED DOWN) 



Z«<MSBC RM05/3/2 DU POR TST 2 MACRO V04.GO 
TEST 'PORT SELECT ' SWITCH ON PORT 9 



012176 001774 
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BEQ 



4 



tO 0048 



;BR If NO (DRIVE NOT CrCLcD bP> 



012200 


005037 


001244 




CLR 


01 2204 


016037 


0000 1 2 


001126 


MOV 


012212 


01?737 


000012 


001122 


MOV 


012220 


060037 


001122 




ADD 


012224 


012737 


110600 


001124 


MOV 


012232 


013737 


001126 


001164 


NOV 


012240 


042737 


066077 


001164 


BIC 


012246 


023737 


001124 


001164 


CMP 


012254 


001414 






BEQ 


012256 


01 3737 


001126 


001 1 74 


MOV 


012264 


042737 


1 1 1 700 


001174 


BIC 


012272 


053737 


001 1 74 


C011 24 


BIS 


012300 


104021 






EMT 


012302 


005137 


001244 




COM 


012506 


000240 






64$: NOP 










;SET VOLUME 


012310 


01 2760 


00001 1 


000000 


MOV 


012316 


012760 


000021 


000000 


MOV 


012324 


012760 


0 1 0000 


000032 


MOV 



; DRIVE IS CYCLED JP. CHECK STAiUS THROUGH PORT B 

CKERR .-CLEAR THE 'CHECK ERROR" INDICATOR 

RMDS(RO) .S8DDAT ;GET CONTENTS OF RMDS 
#RMDS.$8DADR .FORM REGISTER ADDRESS OF ERROR MESSAGE 
R0.S8DADR ;ADD RH/RM BASE ADDRESS 

#ATA!MOL!DPR:DRV.$GDDAT ;UHAT REGISTER SHOULD BE 
$8DDAT.$TMP0 ;MOVE REGISTER CONTENTS TO 'STM^O' 
#*C1117OO.$TMP0 ;SAVE SPECIFIED BITS 
.•COMPARE THE BITS 
;BR IF OK 
.-COPY 'BAD DATA' 
.•CLEAR THE MASKED BITS 
;'0R' WITH GOOD DATA FOR TYPEOUT 



$GDDAT.$TMPO 
64$ 

$8DDAT,$TMP4 
#111700.$TMP4 
$TMP4.$GDDAT 

21 

CKERR 



♦11.RMCSKR0) 
#21 .RMCS1 (RO) 
#FMT16,RMOF(R0) 



;SET THE REGISTER COMPARE ERROR INDICATOR 



ISSUE A DRIVE CLEAR 
ISSUE A READIN PRESET 
SET FMT16 



012332 


' 1 3760 


001224 


000010 


MOVB 


012340 


013737 


00^24 


001234 


MOV 


012346 


005037 


001244 




CLR 


012352 


016037 


000012 


001126 


MOV 


012360 


012737 


000012 


001122 


MOV 


012366 


060037 


001 1 22 




ADD 


012372 


005037 


001124 




CLR 


012376 


013737 


001126 


001164 


MOV 


012404 


042737 


000077 


001164 


BIC 


012412 


023737 


001124 


001164 


CMP 


012420 


001414 






BEQ 


012422 


013737 


001126 


001174 


MOV 


012430 


042737 


177700 


001174 


BIC 


012436 


053737 


001174 


001124 


BIS 


012444 


104022 






EMT 


012446 


005137 


001244 




COM 


012452 


000240 




66$: 


NOP 


012454 


005037 


001244 




CLR 


012460 


016037 


000010 


001126 


MOV 


012466 


012737 


000010 


001122 


MOV 


012474 


060037 


001122 




ADD 


012500 


012737 


010000 


001124 


MOV 


012506 


013737 


001126 


001164 


MOV 


012514 


042737 


167777 


001164 


BIC 


012522 


023737 


001124 


001164 


CMP 


0^2530 


001414 






BEQ 


01^32 


013737 


00M26 


001174 


MOV 


01 25s 1 


042737 


010000 


001 1 74 


BIC 



.-CHECK THE DRIVE STATUS THROUGH PORT A; VERIFY THAT 'NED' 
.-SETS WHEN THE DRIVE IS ACCESSED THROUGH PORT A. 

PORTA # RMCS2(R0) .'SELECT PORT A 

PORTA, PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS (RO) ,$8DDAT ;GET CONTENTS OF RMDS 
#RMDS.$8DADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 



R0,$8DADR 
$GDDAT 
$8DDAT.$TMP0 
# A C1 77700. STMPO 
$GDDAT.$TMPO 
66S 

$8DDAT.$TMP4 
#1 77700. $TMP4 
$TMP4.$GDDAT 

22 

CKERR 



ADD RH/RM BASE ADDRESS 
WHAT REGISTER SHOULD BE 
MOVE REGISTER CONTENTS TO '$TMPO' 
.-SAVE SPECIFIED BITS 
COMPARE THE BITS 
BR IF OK 
COPY 'BAD DATA' 
CLEAR THE MASKED BITS 
'OR' WITH GOOD DATA FOR TYPEOUT 

SET THE REGISTER COMPARE ERROR INDICATOR 



CKERR ; CLEAR THE 'CHECK ERROR' INDICATOR 

RMCS2(R0),$8DDAT ;GET CONTENTS OF RMCS2 
#RMCS2.$8DADR ; F ORM REGISTER ADDRESS OF ERROR MESSAGF 



R0,$8DADR 
#NED.$GDDAT 
$8DDAT.$TMP0 
#-CNED,$TMP0 
$GDDAT.$TMP0 
68$ 

$8DDAT,$TWP4 
#NED,$TMP4 



;ADD RH/RM BASE ADDRESS 
;WHAT REGISTER SHOULD BE 

.-MOVE REGISTER CONTENTS TO '$TMPO' 
;SAVE SPECIFIED BITS 
; COMPARE THE BITS 
;BK IF OK 
;COPY 'BAD DATA' 
.-CLEAR THE MASKED BITS 



fZRMSBO RM05/3/2 DU POR TST 2 MACRO V04.G0 
TIC TEST 'PORT SELECT* SWITCH ON PORT B 
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012546 
012554 
012556 
012562 
012564 



012570 
012576 
012604 
012612 
012620 
01 2626 
012634 
012640 
012646 
012654 
0^2660 
012664 
012672 
012700 
012706 
012710 
012716 
012724 
012732 
012734 
012740 



012742 
012746 
012750 
C12756 
012760 
012764 
012770 
012774 
013002 
013004 
013010 
013014 
013020 
013026 
01 3034 
01 3042 
013044 
013052 



013054 
015062 
01 5070 



053737 
104023 
005137 
0CXP40 
005060 



1 1 3760 
013737 
012760 
013737 
1 1 3760 
013737 
005037 
016037 
012737 
060037 
005037 
013737 
042737 
023737 
001414 
013737 
042737 
053737 
104024 
005137 
000240 



105737 
001412 
032777 
001406 
105037 
005037 
000177 
032777 
001054 
104401 
104401 
104401 
1 1 3760 
013737 
032760 
001 374 
032760 
001774 



012760 
012760 
012760 



001174 
001244 
000012 



001226 
001226 
000013 
001226 
001224 
001224 
001244 
000012 
000012 
001122 
001124 
001126 
000077 
001124 

001126 
1 77700 
001 1 74 

001244 



001103 

001000 

001103 
001 1 76 
166114 
040000 

020367 
020156 
020407 
001226 
001226 
010000 



00001 1 
000021 
00001 3 



001124 



000010 
001234 
000012 
001236 
000010 
001234 

001126 
001122 



001164 
00)164 
001164 

001 1 74 
001174 
001124 



000010 
001234 
000012 



010000 000012 



68* : 



BIS 
EMT 
COM 
MOP 

CLR 



$TMP4 ,$GDDAT 

23 

CKERR 
RMDS(RO) 



;'0R' WITH GOOD DATA FOR TYPEOUT 

.-SET THE REGISTER COMPARE ERROR I ND I C A T OR 

. TRY TO SET REQUEST BY WRITING THROUGH 
; THE LOCKED OUT PORT (PORT ' A ' ) 



.-VERIFY THAT DRIVE STAYS LOCKED ON PORT B 



70$: 



wove 

MOV 

MOV 

MOV 

MOVB 

MOV 

CLR 

MOV 

MOV 

ADD 

CLR 

MOV 

BIC 

CMP 

BEQ 

MOV 

CUC 

.IS 

EMT 

COM 

NOP 



PORTS. RMCS2(R0) .-SELECT PORT B 

PDRT8. PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPE OUT 
#13,RMDS(R0) .-ISSUE A RELEASE THROUGH PORT 8 
P0RT8.SEIZPT .-ADDRESS OF 'LOCKED ON* PORT 
PORTA. RMCS2CR0) .'SELECT PORT A 

PORTA. PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR ; CuEAR iHE 'CHECK ERROR' INDICATOR 

RMDS(RO) ,$BDDAT ;GET CONTENTS OF RMDS 
*RMDS,$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGC 
R0,$8DADR ;ADD RH/RM BASE ADDRESS 

IGDDAT ; WHAT REGISTER SHOULD BE 

$8DDAT.$TMP0 ;MOVE REGISTER CONTENTS lO 
* A C1 77700. $TMPO .-SAVE SPECIFIED BITS 
.-COMPARE THE BITS 
;BR IF OK 
.-COPY 'BAD DATA' 
.-CLEAR THE MASKED BI T S 
;'0R' WITH GOOD DATA FOR TYPEOUT 



'STMPO' 



SGDDAT ,$TMPO 
70$ 

$8DDAT.$TMP4 
#1 77700. $TMP4 
$TMP4,$GDDAT 

24 
CKERR 



;SET THE REGISTER COMPARE ERROR INDICATOR 



;IF ERROR OCCURRED. CHECK FOR LOOP ON TEST 



'66162 



166136 3$: 



4$: 
5$: 



TST8 

BEQ 

BIT 

BEQ 

CLR8 

CLR 

JMP 

BIT 

BNE 

TYPE 

TYPE 

TYPE 

MOVB 

MOV 

BIT 

BNE 

BIT 

BEQ 



$ERFLG 
3$ 

#SW09,3SWR 
3$ 

$ERFLG 
$TIMES 
3$LPERR 
ISWK.aSWR 
6$ 

.CYCLED 
.SWTCHN 
.CYCLEU 
PORT8,RMCS2(R0) 



DID AN ERROR OCCUR 
ER IF NOT 

SEE IF LOOP ON ERROR (SWR9 - 
BR IF NOT 

CLEAR THE ERROR FLAG 
CLEAR THE MAX ITERATION COUNT 
GO TO THE LOOP ADDRESS 
LOOP ON TEST ? 
BR IF LOOPING 
TYPE 'CYCLE DOWN' 
'SWITCH TO A/B' 
'CYCLE THE DRIVE UP' 
.-SELECT PORT B 



1) 



PORTS, PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 



/CMOL.RMDS(RO) 
4$ 

#MOL.RMDS(RO) 
5$ 



000000 
000000 
000000 



.-SET VOLUME VALID FOR BOTH PORTS 

MOV #11.RMCSKR0) 
MOV *21.RMCSKR0> 
MOV 013.RMCSKRO) 



IS 'MOL' RESET 
BR IF NO (DRIVE NOT CYCLED DOWN) 
IS 'MOL' SET ? 

BR IF NO (DRIVE NOT CYCLED UP) 



ISSUE A DRIVE CLEAR THROUGH PORT B 
ISSUE A RE AD IN PRESET THROUGH °ORT B 



RELEASE PORT B 



fZRMSBO RM05/3/2 Du POR 1ST 2 1ACRO V04.00 
T10 TEST 'PORT SELECT ' SWITCH ON PORT e 
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324 
325 
326 

in 



UJ XJ/o 


1 1 T74ft 


ftfti "i"iL 
w ice** 


Tftftftlft 




nuvo 


ni T1 ft/. 


ft1 17Z7 


ftT.1 


ftfti JXi. 




tUV 


Ul 51 1c 


ft1 57*ft 


ftftftft31 


ftftftftftft 




nuV 


ni 71 5ft 


ft1 37*ft 


ftiftftftrt 


ftftftft73 




HUV 


01 ^1 ?(s 




00001 % 

WW 1 J 


oooooo 

www 




Mnw 


013134 


012737 


011610 


001254 


6$: 


MOV 


013142 


005737 


001254 




7S: 


TST 


013146 


001375 








BNE 


013150 


000004 








SCOPE 


013152 


000137 


013160 






JMP 



SE0 0050 



P0RTA.R«CS2(R0> .-SELECT PORT A 

PORTA. PTNBR .HOVE PORT ADDRESS TO LOCATION FOR TYPE OUT 



*21.RMCS1(R0> 
#FMT16.RM0f (R0> 
#13.RMCS1(R0> 
#5000. .WATCH 
WATCH 
7$ 

SEO? 



ISSUE A READIN PRESET THROUGH PORT A 
SET fill 16 
RELEASE P0PT A 

SPINDLE MOTOR 'COOL DOWN' DELAY 
FINISHED ? 
BR IF NOT 
LOOP ? 

GO TO THE END 0^ PASS hOUTINE 



01 31 56 000004 



;PUT NEWTEST HERE 
TST 1 1 : SCOPE 



CZRMS80 RM05/3/2 DU 
END OF PASS ROUTINE 



1 



POR TST 2 MACRO V04.00 



M 4 
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SEO 0051 



,S8TTL END OF PASS ROUTINE 



013160 
013160 
013164 
013166 
013172 
013176 
013202 
013206 
01 3214 
013216 
013220 
013222 
013224 
013226 
013230 
013234 

013254 
013254 

01 3260 
013262 
013266 
013270 
01 3274 

013340 
013340 

013344 
013346 
013352 
013356 
013362 
013364 
01 3366 
013370 
013372 
013374 
013376 
013376 
013400 
013402 



005737 
001402 
000137 
005037 
005037 
005237 
042737 
005327 
000001 
003066 
012737 
000001 
013216 
104401 
0C0407 



104405 
005737 
001431 
104401 
000421 



104405 
005037 
104401 
013700 
001405 
000005 
004710 
000240 
000240 
000240 

000137 
003104 
377 



001266 

002622 
001102 
001176 
001100 
100000 



013236 



013746 001100 



001112 
013276 



013746 001112 



001112 
001207 
0000 A 2 



001100 



;* INCREMENT THE PASS NUMBER ($PASS> 

.••TYPE ""END PASS #XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT YYVYY' 
; * WHERE XXXXX AND YYYYY ARE DECIMAL NUMBERS 
;«IF ThERES A MONITOR 60 TO IT 
; *IF THERE ISN'T JUMP TO TST1AA 



$EOP: 



SfcOPCT; 
$ENDCT : 



.;65$: 
64$: 



377 



;;67$: 
66$: 



$GT42P: 
$GEK2: 



$ENDAD : 



$DOAGN: 

$RTNAD: 
000 $ENULL : 



TST 


KY8CTL 


BEQ 


.♦6 


JMP 


EXEC 


CLR 


$TSTNM 


LLH 


C T T MP C 


INI 


CDAC C 


q f r 
til L 




r\P r 
lit L 


(or \ * 


. WUnU 


•j 


BGT 


$D0AGN 


MOV 


(PC)*.a(PO* 


.WORD 


1 


$EOPCT 




T VPP 

1 Ire 


AS* 


DO 

an 




act T 7 
. »OL 1 L 




rnJV 




T VPHC 
1 IrUj 




TC T 


CPDTTI 
>tKI 1 L 


ppn 


»U 1 her 


TYPE 


.67$ 


BR 


66$ 


act r 7 


/ totai prod 


MDk/ 
rlUv 


CPOTTI -fCP} 


TYPDS 




CLR 


$ERTTL 


TYPE 


.$CRLF 


MOV 


W42.R0 


BEQ 


$D0AGN 


RESET 




JSR 


PC.CR0) 


NOP 




NOP 




NOP 




JMP 


a(PO* 


.WORD 


TST1AA 


.BYTE 


-1.-1.0 


.EVEN 





ENTERED TEST VIA KEYBOARD COMMAND 
BR IF NOT 

RETURN TO KEYBOARD CONTROL 

.-ZERO THE TEST NUMBER 

; ZERO THE NUMBER OF ITERATIONS 

.•INCREMENT THE PASS NUMBER 

.•DON'T ALLOW A NEG. NUMBER 

.-LOOP? 

• - YES 

••RESTORE COUNTER 



;;TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 



SAVE $PASS FOR TYPEOUT 
TYPE PASS NUMBER 

GO TYPE— DECIMAL ASCII WITH SIGN 
SEE IF ANY ERRORS THIS PASS 
8R IF NO ERRORS TO REPORT 
TYPE ASCIZ STRING 
GET OVER THE ASCIZ 



SAVE $ERTTL FOR TYPEOUT 

TOTAL NUMBER OF ERRORS 

GO TYPE— DECIMAL ASCII WITH SIGN 

CLEAR ERROR TOTAL 

TYPE CARRIAGE RETURN, LINE FEED 

GET MONITOR ADDRESS 

BRANCH IF NO MONITOR 

CLEAR THE WORLD 

GO TO MONITOR 

SAVE ROOM 

FOR 

ACT11 

RETURN 

NULL CHARACTER STRING 
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SEO 0052 



2 
3 

4 
r 

J 

6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 



.S8TTL CLOCK SUBROUTINES 











.•ROUTINE TO 


013406 


012737 


01 3456 


000004 


CKCLK: MOV 


013414 


005037 


000006 




CLR 


013420 


005777 


165566 




TST 


013424 


013701 


001216 




MOV 


013430 


012721 


01 3540 




MOV 


013434 


012711 


00C300 




MOV 


013440 


012777 


177777 


165546 


MOV 


013446 


0'i2777 


000135 


165536 


MOV 


013454 


000425 






BR 


013456 


062706 


000004 




CKCLK1 : ADD 


013462 


012737 


013520 


000004 


MOV 


013470 


005777 


165524 




TST 


013474 


013701 


001222 




MOV 


013500 


012721 


013540 




MOV 


01 3504 


012711 


000300 




MOV 


013510 


012777 


000100 


165502 


MOV 


013516 


000404 






BR 


013520 


062706 


000004 




CKCLK2: ADD 


013524 


062716 


000002 




ADD 


013530 


012737 


000006 


000004 


CKCLK3: MOV 


013536 


000207 






RTS 



.•ROUTINE TO CHECK FOR KW11-L OR KW11-P ClOCKS 



013540 
013546 
013552 
013554 
01 3562 
01 3564 
013570 



013572 
013574 
013600 
0 1 3602 
013606 
013610 
013612 
013616 



#CKCLK1.3#ERRVEC 

a#ERRVEC*2 

aSLKCSR 

$LPVEC.R1 

#CLOCK.<RD* 

#300. (R1) 

#-1.a$LKCSB 

#135.a$LKCSR 

CKCLK3 

#4.SP 

#CKCLK2.a#ERRVEC 

aSLKS 

SLLVEC.R1 

#CL0CK.(R1)+ 

#300, <R1) 

#100.a$LKS 

CKCLK3 

#4.SP 

#2.(SP) 

#6.a#ERRVEC 

PC 



.■ROUTINE TO COUNT CLOCK TICKS 



062737 
005^37 
001406 
162737 
100002 
005037 
000002 



005746 
016616 
013546 
011666 
006216 
006216 
062666 
000205 



000021 
001254 

000021 

001254 



000002 
000004 

000002 



001252 
001254 



CLOCK; 



1$: 



ADD 
TST 
BEO 
SUB 
BPL 
CLR 
RTI 



#17. .TIME 

WATCH 

1$ 

#17. .WATCH 
1$ 

WATCH 



;SET UP VECTOR FOR CLOCK CHECK 

;NEW PSW 
CHECK FOR KW11-P 
KW11-P VECTOR ADDRESS 
SET UP KW11-P VECTOR 
PSW - PRI 6 

LOAD COUNTER BUFFER WITH TS 

SET CLOCK - CNT UP. 16MS. CONT INT 

.•RESTORE THE STACK POINTER 

.•CHANGE ERROR VECTOR TO CHECK FOR KW11-L 
LOOK FOR KW11-L 
KW11-L VECTOR ADDRESS 
SET UP KW11-L VECTOR 
PSW - PRI 6 
SET KW11-L INTERRUPT 

RESTORE THE STACK POINTER 
INCREMENT RETURN. NO CLOCK 
RESTORE THE ERROR VECTOR 



ADD 17 MS TO ELAPSED TIME COUNTER 
IS WATCH ALREADY ZERO ? 
BR IF IT IS 

SUBTRACT 17 MS FROM WATCH DOG COUNTFR 

BR IF NOT MINUS 

CLEAR WATCH DOG COUNTFR 

RETURN 



.•ROUTINE TO CALCULATE ♦ 25% TIME TOLERANCE VALUES 



TOLER: TST -<SP) 

MOV 2(SP).(SP) 

MOV a(R5)+,-(SP) 

MOV (SP).4(SP) 

ASR (SP) 

ASR (SP) 

ADD <SP)+,2(SP) 

RTS R5 



MAKE ROOM ON THE STACK 
SAVE STACK 
GET TIME VALUE 
MOVE TIME VALUE 
DIVIDE BV 2 

DIVIDE BV 2 AGAIN (FOR A TOTAL OF 
CALCULATE UPPER LIMIT FOR TIMEOUT 
RETURN WITH TOLERANCFS ON THE STACK 



4) 
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.S8TTL SCOPE HANDLER ROUTINE 



SCO 0053 



01 3620 
013620 
013622 
013626 
013634 
013636 
013642 



1 0U07 
004737 
032777 
001402 
000137 



013642 000416 



013644 
013650 
013656 
013662 
013666 
013670 
013672 
01 3676 
01 3700 
013700 
01 3704 
013706 
013714 
013716 
01 3722 
013730 
013736 
013740 
01 3746 
013752 
013754 

013760 
013766 
01 3770 
013776 
014000 
014006 
014012 
014016 
0K024 
014030 
014036 
014040 
014044 



013746 
012737 
0C5737 
012637 
000517 
022626 
012637 
000517 

105737 
001465 
022737 
OOK55 
013746 
012737 
013737 
000406 
012737 
012716 
000002 
012637 

022737 
001430 
032737 
00K24 
042737 
01 3746 
017646 
012737 
011677 
042777 
104177 
012676 
012637 



014154 
040000 

0K136 



000004 
013670 
1 77060 
000004 



000004 

001103 

^77777 

000004 
013740 
1 77766 

\77777 
013754 

000004 

-\77777 

000001 

000001 
001140 
000000 
0001 76 
165110 
001000 

000000 
001140 



000004 



014524 



000004 
014524 



014524 
014524 
177766 

001140 
165102 



•THIS ROUTINE CONTROLS THE LOOPING Of SUBTESTS. IT WILL INCREMENT 

•AND LOAD THE TEST NUMBER($TSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 

•AND LOAD THE ERROR FLAG (SERfLG) INTO DISPLAY<1 5 :08> 

•THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE : 

•SW14=1 LOOP ON TEST 

•SW11=1 INHIBIT ITERATIONS 

•CALL 

SCOPE ;;SC0PE=I0T 



165304 1S: 



SSCOPE : 

CKSWR 
JSR 
BIT 
BEQ 
JMP 

9$: 

;##*##START OF 

SXTSTR: BR 



014524 2000S 



MOV 
MOV 
TST 
MOV 
BR 

5$: CMP 
MOV 
BR 

6$:;*****END OF 
2$: TST6 
BEQ 
CMP 
BEQ 
MOV 
MOV 
MOV 
BR 
MOV 
MOV 
RTI 

2001$. MOV 



PC, STOP 
«BITU,SSWR 
9$ 

SOVER 

CODE FOR THE XOR 
6$ 

a#ERRVEC.-(SP) 
*5$,a*ERRVEC 
3*1 77060 
(SP)+.3*ERRVEC 
SSVLAD 
(SP)*,(SP)* 
(SP)*.a*ERRVEC 
SOVER 

CODE FOR THE XOR 
SERFLG 
3S 

#-1, CPSAVE 
2003S 

ERRVEC.-(SP) 
*20O0$,ERRVEC 
1 77766, CPSAVE 
2001 S 
#-1, CPSAVE 
#2001$, (SP) 



;;TEST FOR CHANGE IN SOFT-SWR 



2002$: 



CMP 
BEQ 
BIT 
BEQ 
BIC 
MOV 
MOV 
MOV 
MOV 
BIC 
EMT 
MOV 
MOV 



LOOP ON PPESENT TEST? 

NO IF SW14=0 

JUMP OVER SCOPE PO'JTINfc 

ESTER***** 

IF RUNNING ON THE "XOR" TESTER CHANGE 

THIS INSTRUCTION TO A "NOP" (NOP=240) 

SAVE THE CONTENTS OF THE ERROR VECTOR 

SET FOR TIMEOUT 

TIME OUT ON XOR? 

RESTORE THE ERROR VECTOR 

GO TO THE NEXT TEST 

CLEAR THE STACK AFTER A TIME OUT 

RESTORE THE ERROR VECTOR 

LOOP ON THE PRESENT TEST 
TESTER***** 

HAS AN ERROR OCCURRED? 
BR IF NO 

SEE IF TIMEOUT WAS PREVIOUSLY RECORDED 

KICK AROUND ROUTINE IF SO 

SAVE CONTENTS OF ERROR VECTOR 

SETUP 'TRAP' RETURN ADDRESS 

MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST 

;SET CPU ERROR REGISTER TIMEOUT INDICATOR 
.-SETUP RETURN ADDRESS 



(SPH.ERRVEC ;. -RESTORE CONTENTS OF ERROR VECTOR 



#-1. CPSAVE 
2003$ 

*BJ TOO, CPSAVE 
2003$ 

*8I TOO. 177766 

SWR.-(SP) 

3(SP),-(SP> 

*176.SWR 

(SP).aSWR 

*BIT09.SSWR 

177 

(SP)*,a'SP) 

(SP)+,SWR 



SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
BRANCH IF SO 

SEE IF THE POWER MONITOR BIT IS ON 

BRANCH TO CONTINUE ROUTINE IF CLEAR 

CLEAR THE BIT FOUND TO BE SET 

SAVE SWR ADDRESS 

SAVE SWR VALUE 

GET SOFTWARE SWR ADDRESS 

GET CURRENT SJR VALUE 

DON'T ALLOW LOOP ON ERROR ON THIS ERROR 
CALL SPECIAL POWER FAIL BIT ERROR CALL 
RESTORE SWR TO ORIGINAL VALUE 
RESTORE SWR ADDRESS 
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SCOPE HANDLED ROUTINE 












0K050 








<:UU3»: 






0H050 


105037 


001103 




4>: 


LLHa 


• con r 


014054 


005037 


001 1 to 






ILK 


<T IMC C 


0 14060 


012777 


AA/ AAA 

004 oou 




5» : 


Hi I 


•73 1 1 1 1 .aioWK 


014066 


001011 










1 > 


014070 


005737 


AA1 1 AA 

001100 






TCT 


CDAQC 


014074 


001406 








DC A 


1 > 


014076 


005237 


AA* 1 A/ 

001104 






t Kir 
INC 


c l rtuT 
>1 LN 1 


014102 


023737 


AA1 1 

001 1 76 


AA1 1 A/ 

001 104 




mo 


C T I MC C C T fluT 


014110 


002012 








ore 
Out 


•UVCn 


014112 


012737 


AAAAA1 

OOOOU I 


AA 1 1 A/ 


I »: 


MAW 




014120 


013737 


0141 jd 


AA1 1 

001 1 fb 




MAW 


CM V r \J T C T I MC C 

Vta l <n i . » i into 


014126 


105237 


AA1 1 AO 

UO 1 1 Oc 




tC\JI Aft - 


J nJLO 


CTCTMM 


014132 


011637 








MDvy 
rnjv 


( S.P\ CI PADR 


014 1 36 


013777 


aai i rp 




CDi/FR - 

9* J V C . 


MOV 




014144 


013716 


001106 






MOV 


$LPADR.(SP) 


014150 


000002 








RTI 




014152 


000005 






$MXCNT: 


5. 





SE0 0054 



.ZERO THE CRRUR FLAG 

;. CLEAR THE NUMBER OF ITERATIONS TO MAKE 
-INHIBIT ITERATIONS? 
;;8ft IF YES 

;;IF FIRST PASS OF PROGRAM 
INHIBIT ITERATIONS 
;; INCREMENT ITERATION COUNT 
;; CHECK THE NUMBER OF ITERATIONS MADF 
;;8R IF M0RF. ITERATION REQUIRED 
^•REINITIALIZE THE ITERATION COUNTER 
;;SET NUMBER OF ITERATIONS TO DO 
;; COUNT TEST NUMBERS 
;;SAVE SCOPE LOOP ADDRESS 
; .-DISPLAY TEST NUMBER 
; .-FUDGE RETURN ADDRESS 
• FIXES PS 

••MAX. NUMBER OF ITERATIONS 



6 
7 
8 
9 



10 



;DR0P PRIORITY TO ALLOW CONSOLE INTERRUPT 



014154 
014154 
014160 
014164 
014166 



014166 
014172 
014176 
014200 
014200 



01 2746 
012746 
0C0002 



012746 
01 2746 
000002 

000207 



000140 
014166 



000240 
014200 



STOP: 



64$: 



MOV #PR3.-(SP) ;;PUT NEW PS ON STACK 

MOV #64$. -(SP) ;;PUT NEW PC ON STACK 

RTI ;;PCP NEW PC AND PS 



;RAISE PRIORITY TO INHIBIT CONSOLE INTERRUPT 



65$: 



MOV 
MOV 
RTI 

RTS 



#PR5.-(SP> 
#65$. -(SP) 



PC 



;;PUT NEW PS ON STACK 
;;PUT NEW PC ON STACK 
;;P0P NEW PC AND PS 

.•RETURN 
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.S8TTL ERROR HANDLER ROUTINE 



,IQ 0055 



•THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT. 
•SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
•AND GO TO $ERRTYP ON ERROR 

•THE SWITCH OPTIONS PROVIDED B v THIS ROUTINE ARE : 

•SU15=1 HALT ON ERROR 

•SW13=1 INHIBIT ERROR TYPEOUTS 

•SW10-1 BELL ON ERROR 

•CALL 

• ERROR N ;.TRROR=EMT AMD N= ERROR ITEM NUMBER 



014202 


10503/ 


014526 




$ERR0R: 


CLR8 


014206 


104407 








CKSWR 


014210 


113737 


001102 


001242 




MOVB 


014216 


105237 


001103 




7$: 


INC8 


014222 


001 775 








BEG 


014224 


013777 


001102 


164710 




MOV 


0*4232 


032777 


002000 


164700 




BIT 


014240 


001402 








BEQ 


014242 


104401 


001202 






TYPE 


014246 


005237 


001112 




1$: 


INC 


014252 


011637 


001116 






MOV 


014256 


162737 


000002 


001 116 




SUB 


014264 


117737 


164626 


001114 




MOVB 


014272 


032777 


001000 


164640 




BIT 


014300 


001060 








BNE 


014302 


122737 


000177 


001H4 




CMP8 


014310 


001454 








BEQ 


014312 


105737 


014526 






TSTB 


014316 


001047 








BNE 


014320 


022737 


}77777 


014524 




CMP 


014326 


001445 








RFQ 

DC »■ 


014330 


013746 


000004 






MOV 


014334 


012737 


014352 


000004 




MOV 


CK342 


013737 


1 77766 


014524 




MOV 


014350 


000406 








BR 


014352 


012737 


"\77777 


014524 


1000$: 


MOV 


014360 


012716 


014366 






MOV 


014364 


000002 








RTI 


014366 


012637 


000004 




1001$: 


MOV 


014372 


022737 


"77777 


014524 


1002$: 


CMP 


014400 


001420 








BEQ 


014402 


032737 


000001 


014524 




BIT 


014410 


001414 








BEQ 


014412 


042737 


000001 


1 77766 




BIC 


014420 


113737 


001114 


014526 




MOVB 


014426 


112737 


000177 


001114 




MOVB 


014434 


000402 








BR 


014436 


105037 


014526 




1003$- 


CLRB 


014442 








1004$: 




014442 


012777 


020000 


164470 




BIT 


0U450 


001004 








BNE 


014452 


004737 


014530 






JSR 



I8SAVE 

$TSTNM. TSTNUM 

$ERFLG 

7$ 

$TSTNM.3DI SPLAY 

#8iT10.aSWR 

1$ 

,$BELL 

$ERTTL 

(SP).$ERRPC 

*2.$ERRPC 

S$ERRPC,$ITEMB 

*8N09.aSWR 

1004$ 

#177.$ITEMB 
1004$ 
I8SAVE 
1003$ 

/M.CPSAVE 
1004$ 

ERRVEC-(SP) 
#1000$,ERRVEC 
1 77766. CPSAVE 
1001$ 

/M.CPSAVE 
*1001$.(SP) 

(SP)+.ERRVEC 

*-1,CPSAVE 
1004$ 

*8IT00.CPSAVE 
1004$ 

*8J TOO, 177766 
$1 TEMB, IBSAVE 
*177.$ITEMB 
1004$ 

IBSAVE 

*8IT13.SSUR 
20$ 

PC,$ERRTYP 



;; CLEAR THE I T EM BYTE SAVE LOCATION 
;;TEST FOR CHANGE IN SOFT-SWR 

;;SET THE ERROR FLAG 

; .-DON'T LET THE FLAG GO TO ZERO 

; .-DISPLAY TEST NUMBER AND tRROR FLAG 

;;BELL ON ERROR? 

;;NO - SKIP 

.-.-RING BELL 

;; COUNT THE NUMBER OF ERRORS 
;;GET ADDRESS OF ERROR INSTRUCTION 

; .-STRIP AND SAVE THE ERROR ITEM CODE 
;;SEE IF LOOP ON ERROR IS SET 
; .-BRANCH AROUND ROUTINE IF SO 
;;SEE IF THIS IS THE POWER FAIL CALL 
; .-BRANCH AROUND ROUTINE IF IT IS 

;;SEE IF THIS IS THE 2ND ERROR CALL iN THIS ROUTINE 
; .-BRANCH IF SO 

;;SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
; .-BRANCH IF SO 

;;SAVE CONTENTS OF ERROR VECTOR 

;; SETUP 'TRAP' RETURN ADDRESS 

;;MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST 

;;SET CPU ERROR REGISTER TIMEOUT INDICATOR 
;; SETUP RETURN ADDRESS 

; ,-RFSTORE CONTENTS OF ERROR VECTOR 

;;SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
; .-BRANCH IF SO 

;;SEC IF POWER MONITOR BIT IS SET IN CPU ERR REG 

; .-BRANCH IF OK 

;; CLEAR THE BIT FOUND SET 

.-.-MAKE IBSAVE NON-ZERO FOR DUAL ERROR CALL 

;;SET IITEMB TO SPECIAL POWER FAIL POINTER 

;;8RANCH OVER IBSAVE CLEARING 

;; CLEAR IBSAVE SO 2ND TIME THROUGH EXITS 

;;SKIP TYPEOUT IF SET 

;;SKIP TYPEOUTS 

;;GO TO JSER ERROR ROUTINE 



'7RMSB0 RM05/3/2 DU POR Tb r 2 MACRO *04.00 4-APR-81 
f»ROR HANDLER ROUTINE 

014456 10440' 001207 TrP£ 
0 H462 20S: 

014462 1G5737 0145^>6 ?i: TST8 

014466 001005 BNE 

014470 005777 164444 TST 

014474 100002 BPL 

014476 000000 HALT 

014500 104407 CKSWR 
014502 5$: 

0H502 022737 0*3366 000042 CMP 

014510 001001 BNE 

014512 000000 HALT 
014514 6$: 

014514 105737 014526 TST8 

014520 001236 BNE 

014522 000002 RTI 

014524 000000 CPSAVE: .WORD 

014526 000000 IBSAVE: .WORD 



'8:08:36 PAGE 14-1 

SEO 0056 

.SCRlF 



IBSAVE ;;SEE It IBSAVE IS LOADED 

3$ .-.-BRANCH IF NOT - NO HAL T ON PWR MON BIT ERROR 

aSWR ;;HALT ON ERROR 

3$ .-.-SKIP IF CONTINUE 

.-.-HALT ON ERROR! 

;;7EST FOR CHANGE IN SOFT-SWR 

#$ENDAD.d*42 .-.-ACT-11 AUTO-ACCEP 1 ? 
6$ ; .-BRANCH IF NO 

;;VES 

IBSAVE ;;SEE IF ITEM BVTE SAVE LOCATION HAS AN ERROR CALL 

7$ ;. -BRANCH BACK TO CALL ORIGINAL ERROR 
; .-RETURN 

0 ;; LOCATION TO SAVE CPU ERROR REG CONTENTS 

0 ; .-LOCATION TO SAVE ITEM BYTE 
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>EQ 0057 



0H530 
014530 
014534 
0'A536 
014540 
0K544 



104401 
010046 
005000 
153700 
001004 



C 14546 013746 



014552 
014554 
014556 
0*456? 
014564 
014572 
014576 
OH600 
014602 
014604 
0H606 
0H610 
014614 
0K620 
0K622 
014624 
0K626 
014632 
014636 
0*4640 
C 14642 
014644 
014650 
014652 
014654 
014656 
014660 
014662 
014664 
014666 
014670 
014672 
014672 
014674 
CI 4676 
OU700 
014702 
014706 

014710 
C'A 7 12 



1044C2 
000456 
122700 
001006 
113737 
012700 
000406 
005300 
006300 
006300 
006300 
062700 
012037 
001404 
104401 
000000 
104401 
012037 
001404 
104401 
000000 
104401 
010146 
012001 
00*415 
012000 
105720 
001003 
013146 
104402 
000402 

013146 
104405 
005711 
001403 
104401 
000764 

012601 
01260C 



001207 
001H4 
001116 

000177 

001102 
014726 



001276 
014624 



001207 
014642 



00120- 



015066 



014722 



.S8TTL 


ERROR MESSAGE tyPEOUT 


.-•THIS 


ROUTINE 


USES THE "ITEM 


; * ERROR 


IS TO 


BE REPORTED. IT 


;*AND REPORTS 


luC tDDDnDD IATC 


1ERPTVP 








type 


.SCRLF 




MO/ 


RO.-(SP) 




CLR 


RO 




BIS8 


S*$I TEMB.RO 




BNE 


1$ 




MOV 


$ERRPC,-(SP) 




TYPOC 






BR 


10$ 


1$: 


CMP8 


#177. RO 




BNfc 


1000$ 




MOVB 


$TSTNM.PFTSTN 




MOV 


#PF ECH.RO 




BR 


1001$ 


10001: 


DEC 


RO 




ASL 


RO 




ASL 


RO 




ASL 


RO 




ADD 


#$ERRTB ,R0 


1001$: 


MOV 


(R0)+.2$ 




BEQ 


3$ 




Type 




21: 


.WORD 


0 




TYPE 


.$CRLF 


3$: 


MOV 


(RU)*,4$ 




BEQ 


5$ 




Tvpfc 




4$: 


.WORD 


0 




TYPE 


,$CRLF 


S$: 


MOV 


R1 ,-(SP) 




MOV 


(R0)*.R1 




BEQ 


9$ 




MOV 


(R0)+.RO 






(RO)* 




BNE 


7$ 




MOV 


s(ri)*,-(sp; 




TYPOC 






BR 


o* 


71: 








MOV 


a(RD*.-(Sp) 




TYPDS 




8$: 


TST 


(R1) 




BEQ 


9$ 




TYPE 


.'1$ 




BR 


6$ 


3$: 


MOV 


(SP)+.R1 


'0$: 


MOV 


(SP)*.R0 



CONTROL BYTE" ($ITEM8) 
THEN OBTAINS. FROM THE 
INFORMATION CONCERNING 



TO DETERMINE WHICH 

'*f RROR TABLE" ($ERRTB> 

THE ERROR. 



"CARRIAGE RETURN" & '1 INE FEED" 
SAVE RO 

PICKUP THE ITEM INDEX 

IF ITEM NUMBER IS ZERO. JUST 
TY D E THE PC OF THE ERROR 
SAVE $ERRPC FOR TYPEOUT 
ERROR ADDRESS 

GO TYPE—OCTAL ASCI I (ALL DIGITS) 
GET OUT 

SEE IF THIS ERROR CALL Ii SPECIAL POWER FAIL CALL 
BRANCH IF NOT 
GET TEST NUMBER 

MOVE POWER FAIL ERROR CALL TABLE TO RO 
BRANCH TO CALL ERROR 
ADJUST THE INDEX SO THAT IT WILL 
WORK FOR THE ERROR TABLE 



FORM TABLE POINTER 

PICKUP "ERROR MESSAGE" POINTER 

SKIP TYPEOUT IF NO POINTER 

TYPE THE "ERROR MESSAGE" 

"ERROR MESSAGE" POINTER GOES HERE 

"CARRIAGE RETURN" & "LINE FEED" 

PICKUP 'DATA HEADER" POINTER 

SKIP TYPEOUT I? 0 

TYPE THE 'DATA HEADER" 

' DATA HEADER" POINTER GOES HERE 

"CARRIAGE RETURN" & "LINE FEED" 

SAVE R1 

pickup 'data table" pointer 

br if no data to be typed 

pickup 'Data format" pointer 

"tjctal" or "decimal" 

8r if decimal 

save 3(r1)+ for t ypeout 

go type— octal ascii (all digits) 



;;SAVE 8(R1)+ FOR TYPEOUT 

;;G0 TYPE— DECIMAL ASCII WITH SIGN 

;;IS THERE ANOTHER NUMBER? 

;;BR IF NO 

..-TYPE TW0(2) SPACES 

;;LOOP 



; .-RESTORE R1 
;; RE ST ORE RO 



;kM-,8U HMG5/5/2 Du PGR TST ? 
MESSAGE TvpfOUT ROUTINE 

0K7H 1(K4(T 001207 



0K720 000207 



jH7?2 

0K7?6 
0K736 
015020 

015052 
015062 
015066 



040 

0H756 
120 
124 

015066 
000 
000000 



040 

015020 
117 
105 

001116 
000 
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15-1 



ooo ns.- 



015052 
127 
123 

0K524 
000 



PFECH: 

PFECH1: 

PFECH2: 

PFECH3 
PFECH4 
PF TSTN 



StO 0058 



TYPE 
RTS 



.SCRLF 

PC 



"CARRIAGE RETURN" I *UNE FEED' 
RETl'RN 

T W0( t ) SPACES 



.ASCIZ 
.EVEN 

PFECH1.PFECM2.PFECM3.PFECH4 ;;W0RDS DEFINING TABLES BELOW 
-ASCIZ ? POWER MONITOR BIT IN CPU ERROR REGISTER FOUND SET? 
7TESTN0 ERR PC CPUERREG? 



.ASCIZ 
.EVEN 
.WORD 
.8VTE 
.WORD 



PFTSTN.SERRPC.CPSAVE.O 
O.C.0.0 

0 .-.-CONTAINS TEST NUMBER FOR PF BIT ERROR 



I 
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.S8TTL TVPE ROUTINE 



•ROUTINE TO TrPE ASCII MESSAGE. MESSAGE MUST TERMINATc WITH A 0 BYTE. 

* t he routine will insert a number of nuli characters after a LINE FE p D. 



NOTE1 
•NOTE2 
•NOTE3 



SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARAC T f R. 
SFRLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
SrlLLC CONTAINS THE CHARAC T ER TO FILL AFTER. 



•CALL : 

•1) USING A TRAP INSTRUCTION 
TYPE .MESADR 

•OR 

TYPE 
MESADR 



; ; ME SADR IS FIRST ADDRESS OF AN ASCIZ STRING 



015070 


105737 


001157 


$TYPE : 


7ST8 


STPFLG 


;;IS THERE A TERMINAL? 


015074 


100002 






BPL 


1$ 


;;BR IF YES 


0"5076 


000000 






HALT 




; ; HAL T HERE IF NO TLRMINAL 


015100 


000407 






BR 


3$ 


;; LEAVE 


015102 


010046 




1 $: 


MOV 


RO.-(SP) 


; ; SAVE RO 


01 5104 


01 7600 


000002 




MOV 


32(SP) .RO 


;;GET ADDRESS OF ASCIZ STRING 


01 51 10 


112046 




2$: 


M0V8 


(RO)*.-(SP) 


;;PUSH CHARACTER TO BE TYPED ONTO STACK 
;;8R IF IT ISN'T THE TERMINATOR 


01 51 12 


001 005 






BNE 


4$ 


01 51 14 


005726 






TST 


(SP) ♦ 


;;IF TERMINATOR POP IT OFF THE STACK 


m ^ 1 1 

U I ) I 1 0 


U 1 coUU 




^n* ■ 
ou» . 


nuv 


( CO \ * DA 
I br"J ♦ .KU 


- *DCCTHDC DA 

, , Ht j 1 UHt HU 


015120 


062716 


000002 


3S: 


ADD 


#2.(SP) 


; .-ADJUST RETURN PC 


015124 


000002 






RTI 




;; RE TURN 


015126 


122716 


000011 


4$: 


CMPB 


#HT.(SP) 


;;8RAMCH IF <HT> 


015152 


001430 






BEO 


8$ 




015134 


122716 


000200 




CMPB 


#CRLF.(SP) 


; .-BRANCH IF NOT <CRLF> 


015140 


001006 






BNE 


5$ 




015142 


005726 
104401 






TST 


(SP) ♦ 


;;POP <CRXLF> EQUIV 


015144 






TYPE 




.-.-TYPE A CR AND LF 


015146 


001207 






$CRLF 






015150 


105037 


015356 




CLR8 


SCHARCNT 


;; CLEAR CHARACTER COUNT 


015154 


000755 






BR 


2$ 


;;GET NEXT CHARACTER 


015156 


004737 


015240 


5$: 


JSR 


PC.STYPEC 


;;G0 TYPE THIS CHARACTER 


015162 


123726 


001156 


6$: 


CMPB 


$FILLC.(SP>* 


;;IS IT TIME FOR FILLER THARS.? 


015166 


001350 






BNE 


2$ 


;;JF NO GO GET NEXT CHAR. 


015170 


01 3746 


001154 




MOV 


SNULL.-(SP) 


;;GET # OF FILLER CHARS. NEEDED 
; ; AND THE NULL CHAR. 


015174 


105366 


000001 


7$: 


DEC8 


KSP) 


;;DOES A NULL NEED TO BE TYPED - * 


015200 


002770 






BLT 


6$ 


;;8R IF NO—GO POP THE NULL OFF OF STACK 


015202 


004737 


015240 




JSR 


PC.STYPEC 


;;G0 TYPE A NULL 


015206 


105337 


015356 




DEC8 


SCHARCNT 


;;D0 NOT COUNT AS A COUNT 


015212 


000770 






BR 


7$ 


;;LOOP 



015214 
015220 
015224 
015232 
015234 
0'V?6 



112716 
004737 
132737 
001372 
005726 
000^24 



000040 
015240 
000007 



.-HORIZONTAL TAB PROCESSOR 



015356 



8$: 
9$: 



M0V8 

JSR 

BJT8 

BNE 

TST 

BR 



#' ,(SP") 
PC.STYPEC 
#7.SCHARCNT 
9$ 

fSP)* 
2$ 



REPLACE TAB WITH SPACE 
TYPE A SPACE 
BRANCH IF NOT AT 
TAB STOP 

POP SPACE OFF STACK 
.GET NEXT CHARACTER 



/RMS8C W05/3/2 Du POR *ST ? 
iPl ROUTINE 



015240 
015240 

015246 
015252 
015256 
015262 
015264 
015264 
015270 
015272 
015276 
015502 
015306 
C15310 
015310 
015312 
0^5512 
015316 
0*5320 
015326 
015334 
015336 
015342 
015344 
015352 
015354 
015356 
015360 



105777 
100022 
017746 
042716 
122716 
001012 

105777 
100375 
117716 
042716 
122716 
001366 

005726 

105777 
100375 
116677 
122766 
001003 
105037 
000406 
122766 
001402 
105227 
000000 
000207 



163700 

163674 
177600 
000023 



163654 

103650 
177600 
000021 



163632 

000002 
000015 

015356 

000012 
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SEO 0060 



101*: 



102$: 
10*: 



165624 
000002 



000002 1*: 



TST8 


atTKS 


;;CMAR IN K.YBD BUFFER? 


RPl 


10* 


- -BR IF NOT 


MOV 


-(SP» 


;;GET CHAR 


filf 
□ 11 


#177600 (SP) 


"•"•STRIP EXTRANEOUS BITS 




#$XOFF (SP) 


• -UAS CHAR XOf f 


Oil 


102$ 


• -BR IF NOT 


"STB 


aiTKS 


;;WAIT FOR CHAR 


BPL 


101$ 




wove 


S$TkS. (SP) 


;;GET CHAR 


□ J V 


#177600 (SP) 


• -STRIP IT 




#*X0N (SP) 


;;WAS IT XON? 


RNF 


1 01 s 


• -BR IF NOT 


TST 


(SP) ♦ 


••FIX STACK 


TST8 


a*TPs 


;.WAIT UNTIL PRINTER IS READY 




10* 






?(SP) S)*TP6 


■•LOAD CHAR TO BE TYPED INTO DATA REG. 




#CR 2(SP) 


;;IS CHARACTER A CARRIAGE RETURN? 


BNE 


1$ 


; -BRANCH IF NO 


CLR8 


$CHARCNT 


;; YES— CLEAR CHARACTER COUNT 


BR 


$TYPEX 


;;EXIT 


CMPB 


#LF.2(SP) 


;;IS CHARACTER A LINE FEED? 


be a 


$TYPEX 


; .-BRANCH IF YES 


INCB 


(PC)* 


;; COUNT THE CHARACTER 


T.-.W0RD 


0 


; .-CHARACTER COUNT STORAGE 


RTS 


PC 
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.S8TTL BINARY TO OCTAL (ASCII) AND TYPE 



•THIS ROUTINE IS USED TO CHANGE A 16-81 7 BINARY DUMBER TO A 6-DIGI T 
•OCTAL (ASCII) NUMBER AND TYPE IT. 

•STYPOS ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPF 

•CALL : 



MOV 

TYPOS 
.BYTE 
.BYTE 



NUM.-CSP) 

N 
M 



NUMBER TO BE TYPED 
CALL FOR TYPE OUT 

N=1 TO 6 FOR NUMBER OF D'GITS TO TYPE 

M-1 OR 0 

;;1=TYPE LEADING ZEROS 
;;0=SUPPRESS LEADING ZEROS 



*$TYPON ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 

*$1YP0S OR STYPOC 
•CALL: 

MOV NUM.-(SP) ;. -NUMBER TO BE TYPED 
TYPON ;;CALL FOR TYPE OUT 

* 

•STYPOC ENTER HERE FOR TYPE OUT OF A 16 BIT NUMBER 

•CALL: 

• MOV NUM.-(SP) ; .-NUMBER TO BE TYPED 

• TYPOC ;;CALL FOR TYPEOUT 



01 5362 


01 7646 


000000 




JTYPOS. 


MOV 


S(SP) ,-(SP) 
1 (SP) ,»OF ILL 


..PICKUP THE MODE 


015366 


1 ^637 


000001 


rvi tint 
01 560b 




MOVB 


. . i r\ a r\ irnn ttii pi ii ttu 

..LOAD ZERO FILL SWITCH 




I I COJf 








nuvo 




. . NUPK3C n Ur V 1 Vj 1 1 o 1 U 1 TrC 


015400 


062716 


000002 






ADD 


#2.(SP) 


;. -ADJUST RETURN ADDRESS 


01 5404 


000406 








BR 


$ TYPON 




015406 


112737 


000001 


015605 


STYPOC: 


MOVB 


#1.$0FILL 


;;SET THE ZERO FILL SWITCH 


015414 


112737 


000006 


015607 




MOVB 


#6.$0M0DE*1 


.-.-SET FOR SIX (6) DIGITS 


015422 


112737 


000005 


015604 


$ T YPON : 


MOVB 


*5.$OCNT 


;;SET THE ITERATION COUNT 


015430 


010346 








MOV 


R3,-(SP) 


.-.-SAVE R3 


015432 


010446 








MOV 


R4,-(SP) 


;;SAVE R4 


015434 


010546 








MOV 


R5,-(SP) 


. . SAVE R5 


015436 


1 1 3704 


015607 






MOVB 


J0M0DE*1,R4 


;;GET THE NUMBER OF DIGITS TO TYPE 


015442 


005404 








NEG 


R4 




015444 


062704 


000006 






ADD 


#6.R4 


;; SUBTRACT IT FOR MAX. ALLOWED 


015450 


110437 


015606 






MOVB 


R4.SOMODE 


;;SAVE IT FOR USE 


015454 


1 1 3704 


015605 






M0V8 


$0F ILL ,R4 


;;GET THE ZERO FILL SWITCH 


015460 


016605 


000012 






MOV 


12(SP).R5 


;; PICKUP THE INPUT NUMBER 


01 5464 


005003 








CLR 


R3 


;; CLEAR THE OUTPUT WORD 
;; ROTATE MSB INTO "C" 


01 5466 


006105 






1$: 


ROL 


R5 


0154/0 


000404 








BR 


3$ 


;;GO DO MSB 


015472 


006105 






2$: 


ROL 


R5 


;;FORM THIS DIGIT 


015474 


006105 








ROL 


R5 




015476 


006105 








ROL 


R5 




015500 


010503 








MOV 


R5.R3 




015502 


006103 






3$: 


ROL 


R3 


;;GET LS8 OF THIS DIGIT 


015504 


105337 


015606 






DECS 


SOMODE 


;;TYPE THIS DIGIT? 


015510 


100016 








BPL 


7% 


;;8R IF NO 


015512 


042703 


1 77770 






BIC 


9177770. R3 


;;GET RID OF JUNK 


015516 


001002 








BNE 


4S 


;;TEST FOR 0 


015520 


005704 








TST 


R4 


;; SUPPRESS THIS 0? 


015522 
0'5524 


001403 








BEO 


5$ 


;;8R IF YES 


005204 






4$: 


INC 


R4 


;; DON'T SUPPRESS ANYMORE O'S 
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015526 


052703 


000060 




BIS 


015552 


052703 


000040 


5»: 


BIS 


015536 


1 1 A777 

1 10337 


015602 




M0V8 


01 5542 


104401 


r/ 

015602 




TYPE 


015546 


105357 


015604 


r *: 


DECB 


01 5552 


AATT/ T 

003347 






BGT 


a^ ecc/ 

015554 


002402 






BLT 


A1 Ctt^ 

01 5556 


005204 






INC 


01 5560 


000744 






BR 


01 556? 


A1 VAC 




6»: 


MOV 


Ai CC1 / 

01 j ->6A 


012604 






UA t J 

MOV 


A1 C CAL 

01 5566 


A1 






MOV 


01 55/0 


016666 


AAAAA*) AAAAA/ 

00000? 000004 




MOV 


015576 


A1 1^.1 £ 

01 <:o 16 






MOV 


U I J OU> J 


firtfifWO 
UUOUUc 






DT 1 
K 1 J 


015602 


000 




8$: 


-BYTE 


015603 


000 






.BYTE 


01 5604 


000 




S0CNT: 


.BYTE 


015605 
015606 


000 




SOFILL: 


.BYTE 


000000 




S0M0DE : 


• WORD 



K 5 
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SE0 0062 



*'0.R3 ;;MAKE THIS DIGIT ASCII 

*' ,R3 ;;MAKE ASCII IF NOT ALREADY 

R3.8S ;;SAVE FOR TYPING 

.8$ ;;G0 TYPE THIS DIGIT 

50CNT ;; COUNT BY 1 

2$ ;;BR IF MORE TO DO 

6$ ;;BR IF DONE 

R4 ;; INSURE LAST DIGIT ISN'T A BLANK 

2$ ;;G0 DO THE LAST DIGIT 

(SPJ + .R5 .-.RESTORE R5 

(SP)*.R4 .-.RESTORE R4 

(SP)*.R3 ; .-RESTORE R3 

2(SP).4(SP) ;;SET THE STACK FOR RETURNING 

(SP)*.(SP) 

; .-RETURN 

0 .-.-STORAGE FOR ASCII DIGIT 

0 ;; TERMINATOR FOR TYPE ROUTINE 

0 ; .-OCTAL DIGJT COUNTER 

0 ;;ZER0 FILL SWITCH 

0 ; .-NUMBER OF DIGITS TO TYPE 



C7RMS80 RM05/3/2 Du POR TST 2 MACRO V(K.OO 
CONVERT BINARv TO DECIMAL AND TYPE ROUTINE 



L 5 

4-APR-81 18:08:36 PAGE 18 



SEO 0063 



.S8TTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 



•THIS ROUTINE IS USED TO CHANGE A 16-8IT BINARY NUMBEP TO A 5-DIG1T 
•SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
•NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
•BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
•REPLACED WITH SPACES. 



•CALL: 













MOV 


NUM.-(SP) 










• * 


TVPDS 




Ol jo 10 








ITYPDS : 






QloolO 


A1 AA/ L. 

010046 








'lOV 


RO.-(SP) 


Ol CA1 O 


0101h6 








MOV 


H\ ,-l5P) 


A1 CA1 / 

Ol 56 i*» 


ni AO/ ^ 

010*:*>6 








MOV 


R*r # -(br; 


01 ?616 


A1 A*?/ L. 

0105*<6 








uni / 

MOV 


Rj,-(Sr; 


01 56*:U 


A1 nC/ A 

0105*»6 








MUV 


DC _/CD\ 

K5. -tor; 


0 1 ?bdd 


A1 "57/ A 

0 1 cf^o 


AOAOAA 

0c0<r00 






uni/ 

MOV 


ffcOcOO.-C bP; 


n* ca oa 
0 i 56^6 


A1 AAnC 
U I 0005 


AAAAOA 

OOOOcO 






MAI/ 

MOV 


on DC 
tT0(or; ,H5 


0 l jojc 


1 OOOOm 








DDI 

orL 


I j> 


m ca7/ 
0 1 505*« 


nnc/ AC 
005*»05 










K5 


0 l 5050 


1 1 57AA 
I la DO 


AAAACC 

000055 


OUUOU 1 




novo 




U l 50mm 


AAC AAA 
005000 








n d 
LLH 


on 

KU 


0 1 50*»0 


m 07n7 
0 I cf\Jj 


m Anoz. 
0 1 OOcm 






unw 


MthDI ^ D7 


0 1 505c 


1 1 5757 
I I c. ' CJ 


AAAA/ A 

OOUUhU 






unwQ 

nuvo 


M • /rj7 \ i 


m C.AC.A 
0 I 5656 


00500c 








LLH 


DO 


rt1 CAAA 

01 5660 


0 1 600 I 


m Am z 

U 1 00 I *• 






uni/ 

nuv 


»L> loL ^KU; ,K 1 


0 I 500*» 


1 Am nc 

I OU I 05 






71 • 




Dl DC 
K 1 ,K5 


m CAAA 

0 1 5666 


OOcmOc 








Dl T 
BL 1 




fil C./L 7A 

0 56r 0 


nnc ono 
005cOc 








INC 


DO 


0 l jOfc 


nnn77z. 
000 r f *• 








DO 

on 


J* 


0 1 56r *» 


060 1 U5 






m» : 


PiVV 


D1 DC. 

K I ,H5 


(*>1 C.A7A 

0 I 50rO 


imc,7no 

005 f Oc 








T C T 


DO 


m c. 7nn 

0 I 5 r 00 


nm nno 
00 1 0 Jc 








DKIC 

o7Mt 


5» 


0 1 5 f\JC 


1 AC 71 A 

1 05 f 1 0 








T C TD 


/ CD ^ 


f\ 1 C, 7AA 
0 I 5 f 0*» 


1 nn/ n7 
1 00*»0f 








DM 1 

an i 


7» 

f* 


m c.7nA 
0 I 5 f 06 


1 nA71 A 

1 063 1 6 






5». 


A CI D 


(or; 


0 I 5 r I U 


1 n?nn7 








or r 


AC 
0» 


0 I J f I c 


1 1 AAA 7 
I 1 0005 


AAAAA1 

UUUOO 1 


I 77777 
{•fill 




novo 


1 f CD ^ .1 / D7 > 


0 I 5 f cO 


nc 57no 


AAAAiLA 

ooooou 






D T C 


« • n do 


0 I 5 f c*» 


n^57no 
\Jjcr\Jd 


OOOOm V 




7*. • 


D T C 
OJ 3 


H' DO 


01 5730 


1 10223 








M0VB 


DO (R?)+ 


015732 


005720 








TST 


(R0) + 


015734 


020027 


000010 






CMP 


R0.*10 


015740 


002746 








BLT 


2$ 


015742 


003002 








BGT 


8$ 


015744 


010502 








MOV 


R5.R2 


015746 


000764 








BR 


6$ 


015750 


105726 






8$: 


TST8 


(SP)» 


015752 


100003 








BPL 


9$ 


015754 


116663 


M7777 


^77776 




M0V8 


-1 (SP) ,-2(R3) 


015762 


105013 






9$: 


CLRB 


(R3) 


015764 


012605 








MOV 


(SP)*.R5 


015766 


012603 








MOV 


(SP)+.R3 


015770 


012602 








MOV 


(SP)*.R2 


015772 


012601 








MOV 


(SP)+.R1 



;;PJT THE BINARY NUMBER ON THE STACK 
;;G0 TO THE ROUTINE 



PUSH RO ON STACK 

PUSH R1 ON STACK 

PUSH R2 ON STACK 

PUSH R3 ON STACK 

PUSH R5 ON STACK 

SET BLANK SWITCH AND SIGN 

GET THE INPUT NUMBER 

BR IF INPUT IS POS. 

MAKE THE BINARY NUMBER POS. 

MAKE THE ASCII NUMBER NE5. 

ZERO THE CONSTANTS INDEX 

SETUP THE OUTPUT POINTER 

SET THE FIRST CHARACTER TO A BLANK 

CLEAR THE BCD NUMBER 

GET THE CONSTANT 

FORM THIS BCD DIGIT 

BR IF DONE 

INCREASE THE BCD DIGIT BY 1 

ADD BACK THE CONSTANT 

CHECK IF BCD DIGIT=0 

FALL THROUGH IF 0 

STILL DOING LEADING O'S? 

BR IF YES 

MSD? 

8R IF NO 

YES— SET THE SIGN 

MAKE THE BCD DIGIT ASCII 

MAKE IT A SPACE IF NOT ALREADY A DIGIT 

PUT THIS CHARACTER IN THE OUTPUT BUFFER 

JUST INCREMENTING 

CHECK THE TABLE INDEX 

GO DO THE NEXT DIGIT 

GO TO EXIT 

GET THE LSD 

GO CHANGE TO ASCII 

WAS THE LSD THE FIRST NON-ZERO? 

BR IF NO 

YES— SET THE SIGN FOR TYPING 

SET THE TERMINATOR 

POP STACK INTO R5 

POP STACK INTO R3 

POP 3 TACK INTO R2 

POP STACK INTO R1 



i 



'/RMSBC RM05/3/2 DU POR TS r 2 MACRO V04.00 4-APR-81 
f INVERT BINARY TO DECIMAL AND TYPE ROuHNf 

015774 012600 MOV 
015776 104401 01 6024 TYPE 

016002 016666 000002 000004 MOV 
016010 012616 MOV 
016012 000002 RTI 
016014 023420 SDTBl : 10000. 

0^6016 001750 1000. 
016020 000144 100. 
016022 000012 10. 
0*6024 SD8LK: .8LKU 



N 5 

18:08:36 PAGE 18-1 



(SP)*.R0 
.SD8LK 

2(SP).4(SP) 
(SP)*.(SP) 



tO 0064 



;;P0P STACK INTO RO 
;;NOW TYPE THE NUMBER 
; .-ADJUST THE STACK 

;; RE TURN TO USER 



fZRMSBC RMC5/3/2 DU POR TST 
TTy INPUT ROUTINE 



MACRO V04.00 



N 5 

<,-APR-81 18:08:36 PAGE 19 



•fO 0065 



.S8TTL TTY INPUT ROUTINE 



016034 000000 
016036 000000 
016040 000000 
016042 

016043 



. ENABL LS8 
STKCNT: .WORD 0 
STKQIN: .WORD 0 
STKQOUT: .WORD 0 
STKQSRT: .8LK8 1 
$TKQEND=. 
.EVEN 



NUMBER OF ITEMS IN OUEUF 
INPUT POINTER 
OUTPUT POINTER 
TTY KEYBOARD QUEUE 



;*7K INITIALIZE ROUTINE 

.-•THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
.••SETUP THE INTERRUPT VECTOR AND TURN ON THE '.i. Y80ARD INTERRUPT 



.••CALL: 



JSR 

RETURN 



PC.STKINT 



016044 


005037 


016034 


STKINT: 


CLR 


STKCNT 


016050 


012737 


016042 


016036 


MOV 


*$TKQSRT. STKQIN 


016056 


013737 


016036 


016040 


MOV 


STKQIN. STKQOUT 


016064 


012737 


016114 


000060 


MOV 


#STKSRV.a#TKVEC 


01607? 


012737 


000200 


000062 


MOV 


#200,WTKVEC*2 


016100 


005777 


163042 




TST 


SSTK8 


016104 


012777 


000100 


1 63032 


MOV 


#100.a$TKS 


01611? 


000207 






RTS 


PC 



CLEAR COUNT OF ITEMS IN QUEUE 
MOVE THE STARTING ADDRESS OF THE 
QUEUE INTO THE INPUT £ OUTPUT POINTERS. 
INITIALIZE THE KEYBOARD VECTOR 
'BR" LEVEL 4 
CLEAR DONE FLAG 
ENABLE TTY KEYBOARD INTERRUPT 
RETURN TO CALLER 

;*TK SERVICE ROUTINE 

.•THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 

.••BY READING THE CHARACTER FROM THE INPUT BUFFFR AND PUTTING 

.••IT IN THE QUEUE. 

.-•IF THE CHARACTER IS A "CONTROL-C" ( A C) STKINT IS CALLED AND 

.•UPON RETURN EXIT IS MADE TO THE "CONTROL-C" RESTART ADDRESS (START) 



016114 


1 1 7746 


163026 




STKSRV: 


M0V8 


a$TK8.-(SP) 


•PICKUP THE CHARACTER 


016120 


042716 


1 77600 






BIC 


#*C 1 77. (SP) 


•STRIP THE JUNK 


016124 


02162/ 


000021 






CMP 


(SP).*$XON 


IS IT A RANDOM XON? 


016130 


001002 








BNE 


30$ 


•BRANCH IF NO 


016132 


005726 








TST 


(SP)* 


•CLEAN RANDOM XON OFF STACK 


016134 


000002 








RTI 




•RETURN 


016136 








30$: 








016136 


021627 


000003 






CMP 


<SP).*3 


IS IT A CONTROL C 7 


016142 


001007 








BNE 


1$ 


BRANCH IF NO 


016144 


104401 


0J7242 






TYPE 


.$CNTLC 


TYPE A CONTROL-C CO 


016150 


004737 


016044 






JSR 


PC.$TKINT 


• INI T THE KEYBOARD 


016154 


005726 








TST 


(SP)* 


CLEAN UP STACK 


016156 


000137 


001766 






JMP 


START 


CONTROL C RESTART 


01616? 


021627 


000007 




IS: 


CMP 


(SP).4f7 


IS IT A CONTROL G' 


016166 


001004 








BNE 


2$ 


BRANCFi IF NO 


016170 


022737 


000176 


001140 




CMP 


#SWREG.SWR 


IS SOFT-SWR SELECTED 9 


016176 


001500 








BEQ 


6$ 


GO TO SWR CHANGE 


016200 








?$: 








016200 


022737 


000001 


016034 




CMP 


#1.$T*CNT ;;IS THE QUEUE FULL? 


016206 


001004 








BNE 


3$ .-.BRANCH IF NO 


016210 


104401 


001202 






TYPf 


,$BELL .-.-RING THE TTY BELl 



*MS8G RM05/3/2 Du POR TST 2 
t INPUT ROUTINE 



MACRO V04.00 



016214 
016216 
0^220 
CI 6224 
016226 
0^6232 
016234 
016240 
016242 
016246 
016252 
016256 
016260 
016266 
016270 
016274 
016300 
016302 
016306 
0'6310 
016314 
016320 
016324 
016332 
016334 
016342 



005726 
000451 
021627 
001021 
005077 
005726 
105777 
100375 
1 1 7746 
042716 
022627 
001366 
012777 
000002 
005237 
021627 
002405 
021627 
003002 
042716 
112677 
005237 
023727 
001003 
012737 
000002 



000023 

162712 

162704 

162700 
1776^0 
OOCv 1 

^0100 62656 

016034 
000140 

000175 

000040 
177516 
016036 

016036 016043 
016042 016036 



3$: 



31S: 



32$: 



4$: 



5$: 





B 6 




-APR-R1 






T^T 






DO 


5$ 


- F V I T 


f MP 


1 Or 1 C J . 


,10 i 1 « L UN InUL J. 


RMF 






\.LrI 


at Tic; 


•HI^ARIF TTV tfFVRDARft INTFRRIIPTC 


T^T 


f <;p ) ♦ 

V O' > . 


• Tl FAW ruAD OFF QTATk - 


1 J ID 


99 1 ^O . 


■UA!T FDD A TUAO 


□Pi 


31$ 


• i nnp ifuTti ttc tmfrf 

• L UU~ Urt 1 iL 1 I O 1 rtc rtt 


nuvo 


atTicR -f^p) • 


•HFT TWF TMARATTFR 


R I r 


#»ri77 fcp) 

* L u f # V j" y . 


•MAITF IT 7-ttTT ACT I I 
. PV\r\C i 1 f T3« 1 MoL 1 1 


TMP 


v or / # • . 


• i «; it a rnwTBni -o? 


OKlC 
OOIC 




■RRANJfM IF KIT) 


MOW 

fTU V 


W 1 vv * 9* INj # 


•RFFMARlF TTV k"FVRnADn I «jT F DDI IPT Q 


RT I 

n 1 J 




• RF Tl IRM 


IMC 

1 rnv. 


9 i fx 1 ni i . 


•rniwT TUI^ TUARATTFR 


TMP 


(«;p) *1£0 


■1^ IT 1 IPPFR rAQF ' 


ri r 


** * . 


■RDArJTM IF VFC 


TMP 


V Or ' ,w 1 / J . 


•1^ IT A SPFCIAI ruADf 
, 1 O J I M or C V, i ML LHAn . 


Rf;T 

DU 1 




•RBAWTH IF VFQ 


Rir 

OIL 




■MAKF IT 1 IPPFR TACF 


MflVR 


^P)+ aSTtcoirj 


• AMD PI IT IT IM 01 IF 1 IF 


INf 


1TK0IN 


•IIPDATF TUF PDIWTFD 




* 1 r\WJ vi . 99 9 \ M^tmy # 


• f;n off thf Fwri'> 


RNF 


5$ 


■RRAMTW TF MD 


MOV 


#$TKQSRT,$TKQIN ; 


■RESET THE POINTER 


RTJ 




.•RETURN 



SE0 0066 



016344 
016352 
016354 
016360 
016362 
016366 
016372 
0163^6 



022737 
001124 
105777 
100121 
117746 
042716 
021627 
001 300 



*************************** ************************************ 



000176 GU1 140 $CKSWR: 

162564 

162560 
1 77600 
000007 



•SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 
•ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 
•SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER 
•CALL WHEN OPERATING IN TTY INTERRUPT MODE. 



TRAP 



CMP 

BNE 

TST8 

BPL 

M0V8 

81 C 

CMP 

BNE 



0SWREG.SWR 
15$ 

a$Ttcs 

15$ 

S$TKB.-(SP) 
#*C1 77, (SP) 
(SP),*7 
2$ 



IS THE S0FT-SWR SELECTED 

EXIT IF NOT 

IS A CHAR WAITING? 

IF NOT. EXIT 

YES 

MAKE IT 7-81 T ASCII 

IS IT A C0NTR0L-G? 

IF NOT. PUT IT IN THE T TY QUEUE 

AND EXIT 



016400 
016406 
016410 
016412 
016416 
016422 

016430 
016434 
016440 
016444 



123727 
001674 
005726 
004737 
005077 
112737 

104401 
104401 
013746 
104402 



0160«.4 
162522 
000001 

017254 
017261 
000176 



001134 000001 6$: 



**************************************************************** 

^CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE 
•ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL. AS A RESULT OF A 
•CONTROL -G BEING TYPED. AND THE SOFTWARE SWITCH REGISTER BEING SELECTED. 



001135 



CMPB 
BEQ 
TST 
JSR 
CLR 
M0V8 



TYPE 

$GTSWR: TYPE 
MOV 
TYP0C 



$AUT08.#1 
2$ 

(SP) + 
PC.$TKINT 
S$TKS 
#1.$INTAG 

.$CNTLG 
,$MSWR 

SWREG.-(SP) 



ARE WE RUNNING IN AUTO-MODE? 
BRANCH IF YES 
" EAR CONTROL -G OFF STACK 
h.USH THE TTY 'NPUT QUEUE 
DISABLE TTY KEYBOARD INTERRUPTS 
SET INTERRUPT MODE INDICATOR 

ECHO THE C0NTR0L-G (*G) 

TYPE CURRENT CONTENTS 

SAVE SWREG FOR TYPE0UT 

GO TYPE— OCTAL ASCI I (ALL DIGI T S) 



ZRMSBO RM05/3/2 DU TST 2 MACRO V04.00 4-APR-81 
*TY INPUT ROUTINE 



016446 


10<»40 1 


01 7272 






type 


016452 


005046 






19$: 


CLR 


016454 


005046 








CLR 


016456 


105777 


1 62462 




7S: 


TST8 


016462 


100375 








BPL 


016464 


1 1 7746 


162456 






movb 


016470 


042716 


177600 






BIC 


016474 


021627 


000003 

\f w \r -J 






CMP 


016500 


001015 








BNE 


016502 


104401 


01 7242 






TYPE 


016506 


062706 


000006 






ADD 


016512 


123727 


001135 


000001 




CMPB 


016520 


001003 








BNE 


016522 


012777 


000100 


162M4 




MOV 


016530 


000137 


001 766 




8$: 


JMP 


016534 


021627 


000025 




9$: 


CMP 


016540 


001005 








BNE 


016542 


104401 


017247 






TYPE 


016546 


062706 


000006 




20$: 


ADD 


016552 


000737 








BR 


016554 


021627 


00001 5 




10$: 


CMP 


016560 


001022 








BNE 


01 6562 


005766 


000004 






TST 


016566 


001403 








BEQ 


016570 


016677 


000002 


162342 




MOV 


016576 


C62706 


000006 




11$: 


ADD 


016602 


104401 


001207 




14$: 


TYPE 


016606 


123727 


001135 


000001 




CMP8 


016614 


001003 








BNE 


016616 


012777 


000100 


1 62 320 




MOV 


016624 


000002 






15$: 


RTI 


016626 


004737 


015240 




16$: 


JSR 


016632 


021627 


000060 






CMP 


016636 


002420 








BLT 


016640 


021627 


000067 






CMP 


016644 


00301 5 








B6T 


016646 


042726 


000060 






BIC 


016652 


005766 


000002 






TST 


016656 


001403 








BEQ 


016660 


006316 








ASL 


016662 


006316 








ASL 


01666* 


006316 








ASL 


016666 


005266 


000002 




17$: 


INC 


016O72 


056616 


1 77776 






BIS 


016676 


000667 








BR 


016700 


104401 


001206 




18$: 


TYPE 


01t?04 


000720 








BR 










.DSA8L 


LS8 



C 6 

18:08:36 PAGE 19-2 



S£0 0067 



,$MNEW ; .-PROMPT FOR NEW SWR 

-(SP) ;; CLEAR COUNTER 

-(SP) ; ; THE NEW SWR 

»$TKS ;;CHAR THERE? 

7$ ;;IF NOT TRY AGAIN 

a$TP03,-(SP) ;;PICK UP CHAR 

#*C 1 77, (SP) ;;MAXE IT 7-BIT ASCII 

(SP;.*3 ;;IS IT A CONTROL-C? 

9$ ; .-BRANCH IF NOT 

,$CNTLC ;;YES, ECHO CONTROL-C ( A C) 

06.SP •; CLEAN UP STACK 

$INTAG.*1 ; -REENABLE TTY KEYBOARD INTERRUPTS 1 

8$ .-.-BRANCH IF NO 

#100.3$TKS .-.ALLOW TTY KEYBOARD INTERRUPTS 

START ;; CONTROL-C RESTART 



(SP).*25 ;;IS IT A CONTROL -U? 

10$ ; .-BRANCH IF NOT 

,$CNTLU ;;YES. ECHO CONTROL-U ( A U) 

*6.SP ;; IGNORE PREVIOUS INPUT 

19$ ; .-LET'S TRY IT AGAIN 



(SP),*15 ;;IS IT A <CR>? 

16$ ; .BRANCH IF NO 

4(SP) ;;YES. IS IT THE FIRST CHAR? 

11$ ;. -BRANCH IF YES 

2<SP),aSWR ;;SAVE NEW SWR 

*6.SP ;; CLEAR UP STACK 

.$CRLF ;;ECHO <CR> AND <LF> 

$INTAG.#1 ; ; RE-ENABLE TTY KBD INTERRUPTS? 

15$ ; .-BRANCH IF NOT 

*100,3$TKS ; ; RE -ENABLE TTY KBD INTERRUPTS 

; .-RETURN 

PC.$TYPEC ;;ECHO CHAR 

(SP).*60 ;;CHAR < 0? 

18$ ;. -BRANCH IF YES 

(SP),*67 ;;CHAR > 7? 

18$ ; .-BRANCH IF YES 

#60,(SP)+ ;;STRIP-OFF ASCII 

2(SP) ;;IS THIS THE FIRST CHAR 

17$ ; .-BRANCH IF YES 

(SP) ;;N0. SHIFT PRESENT 

(SP) ;; CHAR OVER TO MAKE 

(SP) ;; ROOM FOR NEW ONE. 

2(SP) ;;KEEP COUNT OF CHAR 

-2(SP).(SP) ;;SET IN NEW CHAR 

7$ ;;GET THE NEXT ONE 

,$QUES ;;TYPE ?<CR><LF> 

20$ ; .-SIMULATE CONTROL-U 



♦ »****«»»»»***********»*--**»»***»*****»»*»*****»** 



0 6 



7RMSB0 RM05/3/2 DU PQR TST 2 MACRO V04.00 4-APR-81 18:08:36 PAGE 19-3 
TT Y IMPuT ROUTINE 



SEQ 0068 



016706 
016710 
0*6716 
016722 
016724 
016730 
016732 
016732 
016736 
016740 
01 6744 
016752 
0*6756 
016764 
016766 
016774 



016776 
01 7000 
017002 
01 7006 
017012 
017014 
017016 
017020 
017024 
01 7026 
01 7030 
01 7032 
017040 
017044 
017050 
017052 
017056 
017060 
31 7064 
01 7070 
U1 7072 
017074 
017076 
017104 
017110 
017112 
017116 



011646 
016666 
005066 
0C5O46 
012746 
000002 

005737 
001 775 
005337 
1 1 7766 
005237 
023727 
001003 
012737 
000002 



010346 
005046 
012703 
022703 
101456 
104410 
112613 
122713 
001022 
005716 
001007 
112737 
104401 
012716 
005303 
020327 
103434 
111337 
104401 
000746 
005716 
001406 
112737 
104401 
005016 
122713 
001003 



000004 
000004 

016732 



016034 

016034 
1 77070 
016040 
016040 

016042 



017232 
017242 



0001 77 



0001 y. 
01 7230 
177777 

017232 

017250 
01 7230 



000134 
017230 

000025 



•THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
•CALL: 



RDCHR 

RETURN HERE 



000002 



SROCHR: 



64$: 
1$: 



000004 
016043 
016040 



2$: 



MOV 
MOV 

CLR 
CLR 
MOV 
RTI 

TST 

BEU 

DEC 

MOVB 

INC 

CMP 

BNE 

MOV 

RTI 



(SP).-(SP) 
4(SP),2(SP) 
4(S?) 
-(SP) 

*64S.-(SP) 



STKCNT 
1$ 
STKCNT 

a$TKQ0UT,4(SP> 
STKQOUT 

$TKQOUT,*$TKQEND 
2$ 

*$TKQSRT, STKQOUT 



;6ET A CHARACTER FROM THE QUEUE 
.•CHARACTER IS ON THE STACK 
.-WITH PARITY BIT STRIPPED OFF 



PUSH DOWN THE PC AND 
THE PS 

GET READY FOR A CHARACTER 
PUT NEW PS ON STACK 
PUT NEW PC ON STACK 
POP NEW PC AND PS 



;;WAIT ON A CHARACTER 



DECREMENT THE COUNTER 

GET ONE ChAHACTER 

UPDATE THE POINTER 

;DID IT GO OFF OF THE END? 

BRANCH IF NO 

.-RESET THE POINTER 

RETURN 



*************************************************************** 



•THIS 
•CALL: 



ROUTINE WILL INPUT A STRING FROM THE TTY 



SRDLIN: 

1$: 
2$: 



10$: 



017230 



017230 



6$: 



5$: 



7%: 



RDLIN 

RETURN HERE 



MOV R3.-(SP) 

CLR -(SP) 

MOV *$TTYIN,R3 

CMP #$TTYIN+8.,R3 

B! OS 4$ 

RDCHR 

MOVB (SP)+.(R3) 

CMP8 *1 77. (R3) 

BNE 5$ 

TST (SP) 

BNE 6$ 

MOVB *'\,9$ 

T*PE .9$ 

10V *-1,(SP) 

DEC R3 

CMP R3,*$TTYIN 

BLO 4$ 

MOVB (R3),9$ 

TYPE ,9$ 

BR 2$ 

TST (SP) 

BEQ 7$ 

MOVB *'\.9$ 

TYPE ,9$ 

CLR (SP) 

CMPB #25, (R3) 

BNE 8$ 



INPUT A STRING FROM THE TTY 

ADDRESS OF FIRST CHARACTER WIl L BE ON THE STACK 
TERMINATOR WILL BE A BYTE 0^ ALL O'S 

SAVE R3 

CLEAR THE RUBOUT KEY 
GET ADDRESS 
BUFFER FULL? 
BR IF YES 

GO READ ONE CHARACTER FROM THE TTY 
GET CHARACTER 
IS IT A RUBOUT 
8R IF NO 

IS THIS THE FIRST RUBOUT? 
BR IF NO 

TYPE A BACK SlASH 

SET THE RUBOUT KEY 
BACKUP BY ONE 
STACK EMPTY? 
BR IF YES 

SETUP TO TYPEOUT THE DELETED CHAR. 
GO TYPE 

GO READ ANOTHER CHAR. 
RUBOUT KEY SET? 
BR IT NO 

. TYPE A BACK SLASH 

CLEAR T HE RUBOUT KEY 
IS CHARACTER A CTRL J? 
BR If NO 



2RMS80 RW05/3/2 Du POR 1ST 2 
f'Y INPUT ROUTINE 



MACRO rfOi. 



A1 71 OA 


1 A/ / A1 

10440 


A1 70/ 7 


A1 710/ 


/VV\70A 

UUU' to 




A - 71 OA 
A1 71 11 

01 fl 52 


1 0071 1 


AAAAOO 


AA1 A1 1 

00101 1 




A1 71 1/ 
0 I It V* 


1 AKA1 1 




A1 71 ZA 

0 1 ft SO 


1 A/ / A1 

I04*»01 


AA1 0A7 

001 cVf 


A1 71/0 
U I / I He 


1 A/ / A 1 


A1 7010 

01 f cbc 


A1 71 / A 
0 I A I *«o 


AAA71 7 

own r 




A1 71 Crt 

U' r I PO 


1 A/./A1 


AA1 OAA 

OOI^Oo 


ni 71 c/ 

Ol / I p4 


AAA 71 O 

000' I c 




A1 71 

01 'I OO 


111 117 

1 I 1 iif 


A1 701A 


A1 71 <.5 
(J I f I Oc 


1 ft/ / A1 


A1 7P1A 


/.I 71 JLA 




AAAA1 K 
UUUU 1 J 


017172 


AA1 1AC 
Uu 1 JUP 




A1 71 7/. 


1 flCAAl 


1 77777 

I f f f f f 


A1 70AA 
0 1 ' cUO 




nni pi a 

UU 1 C 1 <J 




AAC7PA 
UUP < cO 




A1 7PAA 


A1 PArtl 

U 1 cOVzt 




m 7P i a 
0 1 r c 10 

(V 751 P 

vt '£ It 


A.1 MLf-. 
U I I 0*«0 




A1 AAA A 
U I OOOO 


uuuuu«» 


A1 7PPft 
0 I f CC\> 


A1 ?7AA 
U I C ' OO 


m 7p^p 

U I ' c jC 


A1 7! OA 

0 1 f <:cO 


UUUUUc 




m 7? 


uuu 




ni 7P11 
yi't ji 


aaa 
uuu 




01 7232 






017242 


136 


103 


017247 


136 


125 


017254 


136 


107 


017261 


015 


012 


017272 


040 


040 



000002 
000004 



015 
0 1 5 
015 
123 
116 



8S: 



4$: 
3S: 



9S: 

STT YIN 
SCNTLC 
SCNTLU 
SCNTLG 
SMSWR: 
SMNEU: 
.EVEN 



4-APR-81 



TYPE 

BR 

CMP8 

BNE 

CLR8 

TYPE 

TYPE 

BR 

TYPE 

BR 

M0V8 

TYPE 

CMP8 

BNE 

CLRB 

TYPE 

TST 

MOV 

MOV 

MOV 

MOV 

RTI 

.BYTE 

.BYTE 

.BLKB 

.ASCJZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 



E 6 

18:08:36 PAGE 19-4 

SEO 0069 



.SCNTLU ;;TYPE A CONTROL 'V 

1$ ;;G0 START OVER 

♦22. (R3) ;;IS CHARACTER A ' **R' '? 

3S ;. -BRANCH IF NO 

(R3) ;; CLEAR THE CHARACTER 

.SCRLF ;.TYPE A "CR" £ 'IF" 

,STTYIN ;;TYPE THE INPUT STRING 

2S ;;G0 PICKUP ANOTHER CHACTER 

.SQUES ;.TYPE A '?' 

1$ ;; CLEAR THE BUFFER AND LOOP 

(R3).9S ;;ECH0 THE CHARACTER 

.°S 

#15. (R3)+ ;; CHECK FOR RETURN 

2S ;;LOOP IF NOT RETURN 

-KR3) ;; CLEAR RETURN (THE 15) 

,$LF ;;TYPE A LINE FEED 

(SP)* ;;CLEAN RUBOUT KEY FROM THE STACK 

(SP) + .R3 ; .-RESTORE R3 

ISP). -(SP) ; .-ADJUST THE STACK AND PUT ADDRESS OF THE 

4(SP).2(SP) ;; FIRST ASCII CHARACTER ON IT 

#$TTYIN,4(SP) 

; .-RETURN 

0 ;; STORAGE FOR ASCII CHAR. TO TYPE 

0 ;; TERMINATOR 

8. ;. -RESERVE 8 BYTES FOR TTY INPUT 

/*C/<15><12> ;; CONTROL "C" 

/*U/<15><12> ;; CONTROL "U" 

/ A G/<15><12> ;; CONTROL "G" 



<15><12>/SWR - / 
/ NEW = / 



ZRMSBO RM05/3/2 DU POR T ST 2 
ftp AD AN OCTAL NUMBER FROM TMf 



MACRO V04 
TTV 



,00 4-APR-81 18:08:36 PAGE 



6 

23 



.S8TTL READ AN OCTAL NUMBER FROM THE TTV 



01 7304 
017306 
0*7314 
017316 
017320 
0'7322 
01 7324 
017326 
017332 
017334 
01 7336 
017340 
017342 
017346 
017350 
01 7354 
017356 
01 7360 
017362 
01 7364 
01 7366 
017370 
017372 
017376 
017400 
01 7402 
01 7404 
017410 
017414 
017416 
01 7420 
01 7422 
01 7424 
01 7426 
017430 
01 7432 
017434 
01^440 
01 744? 



011646 

016666 

010046 

010146 

010246 

104411 

012600 

010057 

005001 

005002 

112046 

001420 

122716 

003026 

122716 

002423 

006301 

CU6102 

006301 

006102 

006301 

00610? 

042716 

062601 

000756 

005726 

010166 

010237 

012602 

012601 

012600 

000002 

005726 

105010 

104401 

000000 

104401 

000730 

000000 



•THIS ROUTINE WILL READ AN OCTAL (ASCII; NUMBER FROM THE TT Y AND 
•CHANGE IT TO BINARY. 

• THE INPUT CHARACTERS WILL BE CHECKED TO INSURED THE V ARE LEGAL 
•OCTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ A "?" WILL BE TYPED 
•FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST 



000004 000002 



017432 



000060 
000067 



177770 



000012 
017442 



001206 



; *THEN 


BE RETYPED. THE INPUT 


IS TERMINATED BY TYPING A CARRIAGE 


.••(.ALL : 








• * 


RDOCT 




;;READ AN OCTAL NUMBER 


• • 


RE TURN 


HERE 


;;LOW ORDER BITS ARE ON TOP OF 


■ » 






;;HIGH ORDER BITS ARE IN SHIOCT 


SRDOC T : 


MOV 


(SP).-(SP) 


; .-PROVIDE SPACE FOR THE 




MOV 


4(SP).2(SP) 


;; INPUT NUMBER 




MOV 


RO.-(SP) 


;;PUSH RO ON STACK 




MOV 


R1.-(SP) 


;;PUSH R1 ON STACK 




MOV 


R2.-(SP) 


;;PUSH R2 ON STACK 


1$: 


RDLIN 




; ; READ AN ASCIZ LINE 




MOV 


<SP)*.RO 


;;GET ADDRESS OF 1ST CHARACTER 




MOV 


R0,5$ 


;;AND SAVE IT 




CLR 


R1 


;; CLEAR DATA WORD 




CLR 


R2 




?S: 


MOVB 


(RO)+,-(SP> 


.".-PICKUP THIS CHARACTER 




BEQ 


3S 


;;IF ZERO GET OUT 




CMP8 


#'0. (SP) 


;;MAKE SURE THIS CHARACTER 




BGT 


4$ 


;;IS AN OCTAL DIGIT 




CMP8 


»'7. (SP) 






BLT 


4$ 






ASL 


R1 






ROL 


R2 






ASL 


R1 


* # ^ 




ROL 


R2 






ASL 


R1 


;;*8 




ROL 


R2 






BIC 


»*C7. (SP) 


;; STRIP THE ASCII JUNK 




ADD 


(SP)+.R1 


;;ADD IN THIS DIGIT 




BR 


2S 


;;LOOP 




TST 


(SP) ♦ 


;; CLEAN TERMINATOR r-ROM STACK 




MOV 


R1.12(SP> 


. . CAWC TUC DCCl II T 

. , bAVt IHt KtoUL 1 




MOV 


R2.JHI0CT 






MOV 


(SP)*.R2 


;;POP STACK INTO R2 




MOV 


(SP)+.R1 


;;P0P STACK INTO R1 




MOV 


(SP)*.RO 


;;POP STACK INTO RO 




RTI 




; .-RETURN 


4$: 


TST 


(SP) + 


;; CLEAN PARTIAL FROM STACK 




CLR8 


(RO) 


;;SET A TERMINATOR 




TYPE 




.-.-TYPE UP THRU THE BAD CHAR. 


5$: 


.WORD 


0 






TYPE 


.SQUES 


;;"?" "CR" I "Lf" 




BR 


1$ 


; ; TRY AGAIN 


SHIQCT: 


.WORD 


0 


;;HIGH ORDER BITS GO HERE 



/SMSBO 5M05/3/2 Do POfi TS r 2 MA.»C vGA.OG 
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SCO 0071 



.S8TTL SAVE AND RESTORE R0-R5 ROUTINES 



01 7444 
017444 
01 7446 
017450 
017452 
0 1 7454 
01 7456 
01 7460 
01 7464 
017470 
017474 
017500 



017502 
017502 
017506 
017512 
017516 
017522 
017524 
017526 
017530 
017532 
017534 
017536 



010046 
010*46 
010246 
010346 
010446 
010546 
016646 
016646 
016646 
016646 
000002 



012666 
012666 
012666 
012666 
0126C5 
012604 
012603 
012602 
012601 
012600 
000002 



000022 
000022 
000022 
000022 



000022 
000022 
000022 
000022 



SAVE RO-R5 
CALL : 

SAVREG 

UPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE 

TOP <*16) 

♦2 ( + 18) 

♦4 R5 

♦6 RA 

♦8 R3 

♦ 10 R2 

♦ 12 R1 

♦ 14 RO 



JSAVREG: 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTI 

•RESTORE R0-R5 
•CALL: 

* 

SRESREG: 



RO.-(SP) 

RI.-(SP) 

R2.-(SP) 

R3,-(SP) 

R4.-(SP) 

R5.-CSP) 

22(SP).-(SP) 

22(SP).-(SP) 

22(SP) .-(SP) 

22(SP).-(SP) 



RESREG 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTI 



(SP)+.22(SP) 

(SP)+.22(SP) 

(SP)+.22(SP) 

(SP) ♦. 22 (SP) 

(SP)+.R5 

(SP)+,R4 

(SP)+.R3 

(SP)+.R2 

(SP)+.R1 

(SP)^RO 



PUSH RO ON STACK 
PUSH R1 ON STACK 
PUSH R2 ON STACK 
PUSH R3 ON STACK 
PUSH R4 ON STACK 
PUSH R5 ON STACK 
SAVE PS OF MAIN FLOW 
SAVE PC OF MAIN FLOW 
SAVE PS OF CALL 
SAVE PC OF CALL 



RESTORE PC Or CALL 
RESTORE PS OF CALL 
RESTORE PC OF MAIN FLOW 
RESTORE PS OF MAIN FLOW 
POP STACK INTO R5 
POP STACK INTO R4 
POP STACK INTO R3 
POP STACK INTO R2 
POP STACK INTO R1 
POP STACK INTO RO 



fZRKS80 RM05/3/? Du "CR 
TRAP DECODER 



TST 2 MACRO V04.00 
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SEC1 



.S8TTL TRAP DECODER 



017540 
017542 
01 7546 
017550 
017552 
01 7554 
01 7560 



010046 
016600 
005740 
111000 
006300 
016000 
000200 



000002 



017574 



•THIS ROUTINE WILL PICKUP THE LOWER 8vTE 0* T HE "TRAP" INSTRUCTION 
•AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
•OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT will 
•GO TO THAT ROUTINE. 



STRAP: MOV 


RO.-(SP) 


;SAVE RO 


MOV 


2<S?).R0 


;GET TRAP ADDRESS 


TST 


-(RO) 


•.■BACKUP BY 2 


MOVB 


(RO).RO 


•;GET RIGHT BYTE OF TRAP 


ASL 


RO 


•.•POSITION FOR INDEXING 


MOV 


$TRPAD(RO).RO 


-.-INDEX TO TABLE 


RTS 


RO 


•;G0 TO ROUTINE 



0V562 
017564 
017572 



0^1646 
016666 
000002 



;;THIS IS USE TO HANDLE THE "GETPRI" MACRO 



000004 000002 



STRAP2: MOV 
MOV 
RTI 



(SP).-(SP) 
4(SP).2(SP) 



,S6TTL TRAP TABLE 



.-MOVE THE PC DOWN 
;MOVE THE PSW DOWN 
.■RESTORE THE PSW 



.-•THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*8Y THE "TRAP" INSTRUCTION. 



ROUTINE 



017574 


017562 


STRPAD: .WORD 


STRAP2 




017576 


015070 


STYPE 


# i 


•CAlL=TYPE 


TRAP+1P 04401) 


017600 


015406 


STYPOC 


m 4 


CALL-TYPOC 


TRAP*2( 104402) 


01 7602 


015362 


$ TYPOS 


• t 


CALL=TYPOS 


TRAP*3( 104403) 


017604 


015422 


STYPON 


9 I 


CALL=TYPON 


TRAP*4( 104404) 


01 7606 


015610 


STYPDS 


* J 


•CALL=TYPDS 


TRAP*5( 104405) 


017610 


016434 


SGTSWR 


;;CALL=GTSWR 


TRAP*6( 104406) 


017612 


016344 


SCKSWR 


• t 


•CALL-CKSWR 


TRAP*7( 104407) 


017614 


016706 


SRDCHR 


m i 


• CALL=RDCHR 


TRAP*10(104410) 


017616 


016776 


$RDL IN 




CALL=RDLIN 


TRAP+11 (104411) 


01 7620 


0V304 


SRDOCT 




CALL=RDOCT 


TRAP+1 2(10441 2) 


01 7622 


017444 


SSAVREG 


0 < 


CALL=SAVREG 


TRAP+13H04413) 


01 7624 


017502 


SRESREG 


» • 


CALL=RESREG 


TRAP+14U04414) 



TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 
TYPE DECIMAL NUMBER (WITH SIGN) 



TEST FOR CHANGE IN SOFT-SWR 
TTY TYPEIN CHARACTER ROUTINE 
TTY TYPEIN STRING ROUTINE 
READ AN OCTAL NUMBER FROM TTY 
SAVE R0-R5 ROUTINE 
RESTORE R0-R5 ROUTINE 



„'s<*1SBU RM05/3/2 DU 
'^H»PF MESSAGES 
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.S8TTL TELETYPE MESSAGES 



c lJ 0073 



5 G 17626 


?00 


105 


1 'ift 

1 1 o 






0£0 


077 


111 

1 1 1 




1 01 770O 


POO 

CUV 


1?0 

1 LV 


117 




A 01 77?7 


?00 


1?0 


117 


"(^ ID] J 


7 01 77SA 


?00 


i C J 






O VfcWfc J 




lOS 








(v.0 


077 


111 




1 0 020072 
" 1 020127 


200 

L. V V 


012 


122 


ADDRIS: 


012 


105 


116 


NTRH: 


12 020156 


200 


122 


105 


SWTCHN: 


'3 020224 


200 


123 


127 


SWTCHA: 


14 020261 


200 


123 


127 


SWTCHB: 


15 020316 


200 


124 


110 


CON^UE: 


16 020367 


200 


123 


124 
1 24 


CYCLED: 


17 020407 


200 


123 


CYCLEU: 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
, ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 



/ 
/ 

OR 



<CRLF>/ENTER DRIVE ADDRESS: 
/ 7INVAL ID ADDRESS/<CRLF> 
<CRLF>/F»0RT "A* ADDRESS IS: 
<CRLF>/P0RT '8' ADDRESS IS: 
<CRLF>/SYSTEM MUST HAVE 'L' 
<LF>/ENTER TEST #: / 
/ ? INVALID TEST NUMBER/<CRLF> 
<CR L FXLF>iRH/RM ADDRESS (RMCS1) 
<LF>iENTER RH/RM ADDRESS: S 
<CRLF>3RETURN 'PORT SELECT' 
<CRLF>/SUITCH 'PORT SELECT' 
<CRLF>/SWITCH 'PORT SELECT' 
<CRLF>/THEN PRESS ' CONTINUE ' 
<CRLF>/ST0P THE DRIVE/ 
<CRLF>/START THE DRIVE. THE PROGRAM WILL WAIT FOR 'M0L ' TO SET/<CRLf> 



'P' C10CK/<CRLF><LF > 



IS: S 



SWITCH TO 'A/8'a 
TO 'AV 
TO '8V 

' ON THE PR0CESS0R/<CRLF> 



ZRMSBO RM05/3/2 Du POR 
'EST ERROR MESSAGES 



1 
2 






3 


020501 


104 




020547 


127 


5 


020570 


120 




020642 


104 


7 


020664 


123 




020746 


124 


9 


021020 


124 


10 


021065 


122 


11 


021153 


047 


12 


021220 


111 


13 


021267 


104 


H 


021 354 


101 


15 


021436 


101 


16 


021522 


104 


17 


021600 


123 


18 


021641 


104 


19 


021724 
022007 


104 


20 


123 


21 


022060 


122 


22 


022156 


047 


23 


022251 


104 


24 


022331 


122 
104 


25 


022374 


26 


022425 


127 


27 


022473 


122 


?8 


022523 


103 


29 


022607 


103 


30 


022656 


104 


31 


022 743 


104 


32 


023030 


122 


33 


023111 


104 


34 


023166 


122 



TS T 2 MACRO rf04. 00 4-APR-81 



.SBTTL TEST 



122 


111 


EM1 




.ASCIZ 


122 


117 


EM2 




.ASCIZ 


117 


122 


EM3 




-ASCIZ 


122 


111 


EM4 




.ASCIZ 


105 


122 


EM5 




.ASCIZ 


111 


115 


EM6 




.ASCIZ 


111 


115 


EM7 




.ASCIZ 


105 


101 


EM10 


.ASCIZ 


107 


117 


EM11 


.ASCIZ 


116 


103 


EM12 


.ASCIZ 


122 


111 


EM13 


•ASCIZ 


124 


124 


EM14 


.ASCIZ 


124 


124 


EMI 5 


.ASCIZ 


122 


111 


EM16 


.ASCII 


105 


114 






.ASCIZ 


122 


111 


EM17 


.ASCIZ 


122 


111 


EM20 


•ASCIZ 


124 


101 


EM21 


.ASCIZ 


105 


107 


EM22 


.ASCIZ 


116 


105 


EM23 


•ASCIZ 


122 


111 


EM24 


•ASCIZ 


110 


057 


EM25 


•ASCIZ 


122 


111 


EM30 


•ASCIZ 


122 


117 


EM31 


•ASCIZ 


105 


107 


EM32 


•ASCIZ 


117 


116 


EM33 


•ASCIZ 


101 


116 


EM34 


•ASCIZ 


122 


111 


EM35 


•ASCIZ 


122 


111 


EM36 


•ASCIZ 


105 


107 


EM37 


•ASCIZ 


122 


111 


EM40 


.ASCIZ 


105 


107 


EM4' 




.ASCIZ 
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SEQ 0074. 

ROR MESSAGES 

/DRIVE IS NON-cXlSTENT ''NED' BIT SET)/ 
/WRONG DRIVE TrPE/ 

SPORT SELECT SWITCH ON DRIVE. N0 T IN *A/8'a 
/DRIVE NOT ON LINE/ 

/SERIAL NUMBER READ THROUGH EACH PORT NOT THE SAME/ 

/TIMEOUT HAS NOT OCCURRED WITHIN 2 SECONDS/ 

/TIMEOUT ONE-SHOT IS LESS THAN 500 MS/ 

/READ IN PRESET DOES NOT SET VOLUME VALID FOR THE PORT/ 

/'GO' BIT RESET DURING UNLOAD COMMAND/ 

/INCORRECT STATUS DURING UNLOAD COMMAND/ 

/DRIVE DID NOT RETURN TO NEUTRAL AFTER UNLOAD COMMAND/ 

/ATTENTION BIT SET ON 'OPPOSITE PORT' AFTER UNLOAD/ 

/ATTENTION BIT NOT SET ON PORT WHICH ISSUED 'UNLOAD'/ 

/DRIVE NOT IN NEUTRAL AFTER UNLOAD WITH , PCRT/<CR><LF> 

aSELECT ' SWITCH MOVED FROM 'A/B' a 

/DRIVE LOCKED ON PORT 'A' BY SWITCH WHILE CYCLED UP/ 
/DRIVE LOCKED ON PORT 'B' BY SWITCH WHILE lYCLED UP/ 
/STATUS INCORRECT FOR PORT AFTER CYCLE UP/ 

/REGISTER CONTENTS SEEN WHEN DRIVE SWITCHED ON 'OPPOSITE' PORT/ 

/'NED' NOT SET WHEN RMDS ACCESSED THROUGH PORT NOT SWITCHED/ 

/DRIVE SWITCHED TO LOCKED OUT PORT WHEN RELEASED/ 

3RH/RM DIDN'T RESPOND TO ADDRESSING3 

/DRIVE NOT SEIZED BY PORT/ 

/WRONG STATUS SEEN BY THE SEIZING PORT/ 

/REGISTER CONTENTS WRONG/ 

/CONTROL BUS PARITY ERROR READING INDICATED REGISTER/ 
/CAN'T ACCESS DRIVE THROUGH EITHER PORT/ 
/DRIVE NOT IN NEUTRAL AFTER RELEASE - REQUEST NOT SET/ 
/DRIVE NOT IN NEUTRAL AFTER TIMEOUT - REQUEST NOT SET/ 
/REGISTER CONTENTS WRONG AFTER RELEASE OR TIMEOUT/ 
/DRIVE IN NEUTRAL AFTER RELEASE - REQUEST SET/ 
/REGISTER WRONG AFTER RELEASE WITH REQUEST SET/ 



7RMSB0 RM05/3/2 DU POR T ST 2 
*FSr ERROR MESSAGES 



1 023244 


124 


105 


2 023315 


124 


105 


3 023371 


124 


105 


4 023440 


124 


105 


5 023467 


124 


105 


6 023534 


040 


040 


7 023562 


124 


105 


3 023611 


040 


040 


9 023647 


124 


105 


10 023730 


124 


105 


11 023747 


040 


040 


12 024013 


124 


105 


13 024052 


044 


122 


14 024061 


040 


040 


15 024117 


124 


105 


16 024203 


040 


040 


17 024242 


124 


1 05 


18 024277 


040 


040 


19 024335 

20 024374 


124 


105 


040 


040 


21 024432 


124 


105 


22 024516 


040 


C40 


23 024555 


124 


105 



24 
25 
26 

27 024614 001242 001116 

28 024630 001242 001116 

29 024646 001242 001116 

30 024662 001242 001116 

31 024672 001242 001116 

32 024704 001242 001116 

33 024714 001242 001116 

34 024732 001242 001116 

35 024740 001242 001116 

36 024752 001272 000000 

37 024756 001242 001116 

38 024776 001242 001116 

39 025010 001242 001116 

40 025022 001242 001116 
41 

42 025034 

43 025041 

44 025047 

45 025054 

46 025057 

47 025063 

48 025071 

49 025073 

50 025074 

51 025103 
52 



000 000 

000 000 

000 000 

000 000 

000 000 

000 000 

000 000 
000 

000 000 

000 000 



MACRO V04.00 s-APR-81 



123 


DH1 : 


•ASCIZ 


123 


DH2: 


.ASCIZ 


123 


DH5: 


.ASCIZ 


123 


DH6: 


•ASCIZ 


123 


DH7: 


.ASCIZ 


040 


DH13: 


.ASCII 


123 




.ASCIZ 


040 


DH14: 


.ASCII 


123 




.ASCIZ 


123 


DH17: 


•ASCIZ 


040 


DH24 : 


.ASCII 


123 




•ASCIZ 


115 


DH25: 


•ASCIZ 


040 


0H30: 


•ASCII 


123 




•ASCIZ 


040 


DH34: 


•ASCII 


123 




•ASCIZ 


040 


DH35: 


.ASCII 


123 




.ASCIZ 


040 


DH37: 


.ASCII 


123 




•ASCIZ 


0^0 


DH40: 


•ASCII 


123 




•ASCIZ 



.EVEN 



001234 


0T1 




.WORD 


001234 


DT2 




.WORD 


001122 


DT5 




.WORD 


001234 


DT6 




.WORD 


001234 


DT7 




.WORD 


00 1 236 


DT13 


.WORD 


00 2^6 


DT14 


.WORD 


000000 


DT17 


.WORD 


001236 


DT24 


.WORD 




DT25 


.WORD 


001236 


DT30 


.WORD 


001 1 70 


DT34 


.WORD 


001236 


DT35 


.WORD 


001236 


DT40 


.WORD 


001 


DF1 




• BYTE 


001 


DF2 




.8YTE 


000 


DF5 




• 8YTE 


001 


DF6 




• 8YTE 


001 


DF7 




.8YTE 


001 


DF14 


•8YTE 




DF17 


• 8YTE 




DF25 


• 8YTE 


001 


DF30 


• 8YTE 


000 


DF34 


• 8YTE 



.EVEN 
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SEO 0075 



/TEST 


a 


ERR 


PC 


PORT 0 


REG ADR CONTENTS/ 




/TEST 


0 


ERR 


PC 


PORT 0 


REG ADR GOOD BAD/ 




/TEST 


» 


ERR 


PC 


REG ADR 


PORT A PORT 8/ 




/TEST 


0 


ERR 


PC 


PORT 0/ 






/TEST 


0 


ERR 


PC 


PORT 0 


TIME (IN MS)/ 




/ 








SEIZE/<CRLF> 




/TEST 


0 


ERR 


PC 


PORT 0/ 






/ 








SEIZE 


ERROR/<CRLF> 




/TEST 


0 


ERR 


PC 


PORT 0 


PORT 0 REG ADR CONTENTS/ 


/TEST 


0 


ERR 


PC/ 








/ 








LOCKED 


SWITCHED TO/<CRLF> 




/TEST 


0 


ERR 


PC 


PORT 0 


PORT 0/ 




/SRMADR/ 












/ 








SEIZE 


ERROR/<CRLF> 




/TEST 


0 


ERR 


PC 


PORT 0 


PORT 0 REG ADR GOOD 


BAD/ 


/ 








PORT A 


PORT B/<CRLF> 




/TEST 


0 


ERR 


PC 


RMDS 


RMDS/ 




/ 








RELSNG 


ERROR/<CRLF> 




/TEST 


0 


ERR 


PC 


PORT 0 


PORT 0/ 




/ 








RELSNG 


ERROR/<CRLF> 




/TEST 


0 


ERR 


PC 


PORT 0 


PORT 0 REG ADR GOOD 


BAD/ 


/ 








RELSNG 


RQSTNG/<CRLF> 




/TEST 


0 


ERR 


PC 


PORT 0 


PORT 0/ 





TSTNUM . SERRPC ,PTNBR . S8DADR . S8DDAT . 0 

T S TNUM . $E RRPC , PTNBR . S8DADR , SGDDAT . S8DDA T , 0 

TSTNUM, SERRPC , S8DADR , SGDDAT , SBDDAT , 0 

TSTNUM. SERRPC. PTNBR. 0 

T S TNUM , SERRPC , PTNBR . T IME . 0 

TSTNUM. SERRPC, SE I ZPT,0 

TS TNUM . SE RRPC . S E I ZP T . P TNBR , S8DADR , S8DDA T , 0 

TSTNUM.SERRPC.O 

TSTNUM. SERRPC, SE I ZPT, PTNBR, 0 

SRMADR.O 

TSTNUM. SERRPC. SEIZPT, PTNBR, S8DADR, SGDDAT, S8DDAT,0 
TS TNUM . SE RRPC . STMP2 , STMP3 , 0 
TSTNUM, SERRPC, SEIZPT. PTNBR, 0 
TSTNUM, SERRPC, SEIZPT, OPPRT,0 

0.0.1.0,0 

0,0,1,0.0,0 

0.0,0.0,0 

0.0.1 

0.0.1,1 

0.0,1.1,0,0 

0,0 

0 

0.0,1.1 \0,0 
0.0,0,0 
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3 

9 
10 
11 
1? 
13 
14 
15 
16 
1? 
18 
19 
22 
21 
24 



025110 
025112 
025114 
025116 
025120 
025122 
025124 
025126 



025130 
025131 
025132 
025133 
025134 
025135 
025136 
025137 

025140 



.S8TTL CONSTANTS. TABLES, ETC 
.TABLE OF TEST STARTING ADDRESSES 



003122 


TSTADR: .WORD 


TST 1 


.•STARTING ADDRESS OF TEST 1 


004474 


.WORD 


TST2 


.•STARTING ADDRESS OF TEST 2 


005256 


.WORD 


*rr7 

TST3 


•STARTING ADDRESS OF T_ST 3 


006040 


.WORD 


TST4 


.•STARTING ADDRESS OF TEST 4 


006756 


.WORD 


TST5 


.•STARTING ADDRESS OF TEST 5 


007674 


.WORD 


TST6 


; STAR T ING ADDRESS OF TEST 6 


010742 


.WORD 


TST7 


.■STARTING ADDRESS OF TEST 7 


012052 


.WORD 


TST10 


.•STARTING ADDRESS OF TEST 10 




.-ATTENTION BIT 


TABLE 




001 


ATABIT: .BYTE 


l 


. ATTC4.lT I All DIT C rtfi r\ f> T t#C A 

;AlitNIION BIT FOR DRIVE U 


002 


.BYTE 


2 


.-ATTENTION BIT FOR DRIVE 1 


004 


.BYTE 


4 


.•ATTENTION BIT FOR DRIVE 2 


010 


.BYTE 


10 


.■ATTENTION BIT FOR DRIVE 3 


020 


.BYTE 


20 


.•ATTENTION BIT FOR DRIVE 4 


040 


.BYTE 


40 


.•ATTENTION BIT FOR DRIVE 5 


100 


.BYTE 


100 


.ATTENTION BIT FOR DRIVE 6 


200 


.BYTE 


200 


.•ATTENTION BIT FOR DRIVE 7 


000011 


MAXTN: .WORD 


11 


.•MAXIMUM TEST NUMBER 



SEQ 0076 



000200 



. END 



200 
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SYMBOL 


TABLE 




















ADDRIS 


020072 


CPSAVE 


014524 


DT14 


024714 


F2 


000010 


POR TBI 




017727 


ADRERR 


017655 


CR 


000015 


DT17 


024732 


F3 


000020 


PORTC 




001230 


*OE 


001000 


CRLF = 


000200 


DT2 


024630 


F4 


000040 


PRO 




000000 


ASR1 


001232 


CYCLED 


020367 


DT24 


C24740 


GO 


000001 


PR1 


= 


000040 


ATA = 


100000 


CYCLEU 


020407 


DT25 


024752 


GRV = 


000010 


PR2 


= 


000100 


ATAflIT 


025130 


DCK 


100000 


DT30 


024756 


GTSWR = 


104406 


PR 3 


r 


000140 


ATO 


000001 


DDISP = 


177570 


DT34 


024776 


HCE = 


000200 


PR4 


= 


000200 


AT1 - 


000C02 


DEi 


000040 


DT35 


025010 


HCI = 


002000 


PR 5 


r 


000240 


AT2 = 


000004 


DFF20 = 


000002 


DT40 


025022 


HCRC = 


000400 


PR6 


r 


000300 


AT3 = 


000010 


DF1 


025034 


DT5 


024646 


HT = 


00001 1 


PR 7 


= 


000340 


AH = 


000020 


DH4 


025063 


DT6 


024662 


IAE = 


002000 


PS 


= 


1 7777b 


AT5 = 


000040 


DF17 


025071 


DT7 


024672 


I8SAVE 


014526 


PSEL 


= 


002000 


AT6 = 


000100 


DF2 


025041 


DVA = 


004000 


IE 


000100 


PSW 


s 


1 7777b 


AT 7 = 


000200 


DF25 


025073 


DVC 


000200 


ILF 


000001 


PTNBR 




001234 


A16 = 


000400 


DF30 


025074 


ECH - 


000100 


ILR = 


000002 


PWRVEC 


- 


000024 


A17 = 


001000 


DF34 


025103 


ECI 


004000 


IOTVEC= 


000020 


RDCHR 




104410 


BADNO 


020043 


DF5 


025047 


EMTVEC= 


000030 


IR 


000100 


RDLIN 




104411 


BAD T MO 


001706 


DF6 


025054 


EM1 


020501 


IVC = 


010000 


RDOCT 




104412 


BAI = 


000010 


DF7 


025057 


EM10 


021065 


KY8CTL 


001266 


RDY 




000200 


BITO = 


000001 


DH1 


023244 


EM11 


021153 


L8C = 


002000 


RELERR 


001250 


BITOO = 


000001 


DH13 


023534 


EM12 


021220 


L8T = 


002000 


RELOK 




000001 


BIT01 = 


000002 


DH14 


023611 


EM13 


021267 


LF 


000012 


RESREC 




104414 


BIT02 = 


000004 


DH17 


023730 


EM14 


021354 


LSC = 


004000 


RESVEC 




000010 


BIT03 = 


000010 


DH2 


023315 


EM15 


021436 


MAXTN 


025140 


RMAS 




000016 


BIT04 = 


000020 


DH24 


023747 


EM16 


021522 


MCPE = 


020000 


RMBA 




000004 


BIT05 = 


000040 


DH25 


024052 


EM17 


021641 


MDP" - 


000400 


RMCS1 




000000 


B1T06 = 


000100 


DH30 


024061 


EM2 


020547 


MOH 


020000 


RMCS2 




000010 


BIT07 = 


000200 


DH34 


024203 


EM20 


021724 


MOL = 


U 1 0000 


RMDA 




000006 


BIT08 = 


000400 


DH35 


024277 


EM21 


022007 


MXF = 


001000 


RMDB 




000022 


BIT09 = 


001000 


DH37 


024374 


EM22 


022060 


NBA = 


100000 


RMDC 




000034 


BIT1 = 


000002 


DH40 


024516 


EM23 


022156 


NED = 


010000 


RMDS 




000012 


BIT10 = 


002000 


DH5 


023371 


EM24 


022251 


NEM = 


004000 


RMDT 




000026 


BIT11 = 


004000 


DH6 


023440 


EM25 


022331 


NOATA = 


000000 


RMFC1 




000044 


BIT12 = 


010000 


DH7 


023467 


EM3 


020570 


NOCLOC 


017756 


RMEC2 




000046 


BIT13 = 


020000 


DIGB - 


000004 


EM30 


022374 


NOSE 1 1 


001246 


RMER1 




000014 


BIT14 = 


040000 


DISPLA 


001142 


EM31 


022425 


NTRH 


020127 


RMER2 




000042 


B1T15 = 


100000 


DISPRE 


0001 74 


EM32 


022473 


OFD 


000200 


RMLA 




000020 


BIT2 = 


000004 


DLT = 


100000 


EM33 


022523 


OPE = 


020000 


RMMR1 




000024 


BIT3 = 


000010 


DL64 = 


000020 


EM34 


022607 


OPI = 


020000 


RMMR2 




000040 


BIT4 = 


000020 


DMD = 


000001 


EM35 


022656 


OPPRT 


001240 


RMOF 




000032 


BIT5 = 


000040 


DPE 


000010 


EM36 


022743 


OR 


000200 


RMR 




000004 


BI T6 = 


0C0100 


DPR = 


000400 


EM37 


023030 


PAR = 


000010 


RMSN 




000030 


BJT7 - 


000200 


DRQ 


004000 


EM4 


020642 


PAT 


000020 


RMWC 




000002 


BJT8 = 


000400 


DRY = 


000200 


EM40 


023111 


PFECH 


014726 


R6 





1000006 


BJT9 - 


001000 


DSWR = 


177570 


EM41 


023166 


PFECH1 


014736 


R7 





X000007 


BPTVEC= 


000014 


DTE = 


010000 


EM5 


020664 


PFECH2 


015020 


SAVREG= 


104413 


CHANGE 


002774 


DTOO = 


000001 


EM6 


020746 


PFECH3 


015052 


SC 




100000 


CHGAOR 


001270 


DT01 = 


000002 


EM7 


021020 


PFECH4 


015062 


SCOPE 




000004 


CKCLK 


013406 


DT02 = 


000004 


ENTERA 


017626 


PFTSTN 


015066 


SCO 




000100 


CKCLK1 


013456 


DT03 = 


000010 


ERR 


040000 


PGE 


002000 


SC1 




000200 


CKCLK2 


013520 


DT04 = 


000020 


ERROR = 


104000 


PGM - 


001000 


SC2 




000400 


CKCLK3 


013530 


DT05 = 


000040 


ERRVEC= 


000004 


PIP 


020000 


SC3 




001000 


CKFRR 


001244 


DT06 = 


000100 


EXEC 


002622 


PIRQ = 


\77172 


SC4 




002000 


CKSWR = 


104407 


DT07 = 


000200 


FER ~ 


000020 


PIRQVE- 


000240 


SEIZPT 


001236 


Ct OCK 


013540 


DT08 - 


000400 


FMT16 = 


010000 


PORTA 


001224 


SKI 




1 00000 


CI R 


000040 


DTI 


024614 


FO 


000002 


PORTAI 


017700 


STACK 




0C1100 


fONlUE 


020316 


DT1 3 


024704 


H 


000004 


PORTS 


001226 


START 




001 766 
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START 1 


001 774 


TEST3 


005514 


WCE 


C T A ft T "1 

STARTc 


002002 


T EST4 


0060/6 


WCF 


C T i M T 

S TKLMT= 


I 77(7** 


TEST5 


AA 7Ai / 

00/014 


i II f 

ULfc 


STOP 


0l4l}<» 


1EST6 


AAT"yT1 

007/52 


i ift 1 

URL 


bWR 


AAi 1 / A 

001140 


T P P T 7 

TESTf 


At1 AAA 


Ai 1 T AO 


SWREG 


AAA* 7/ 

C00176 


t r aap 

T IMF 




*ftf\ Aftft 

WD ADR 


SWT C HA 


020224 


T f MP A 

TIMtA 


AA1 ^C^. 

001256 


J8DDAT 


SWTCH6 


020261 


▼ f MP Aft 

T IMEAP 


AA4 ^^A 

001260 


tor 1 1 

WELL 


SWTCHN 


A^A1 C ^ 

0201 ^6 


t r mp ft 

t Into 


AA1 "> 

001262 


JCHAKC 


C i |A _ 

bWU = 


000001 


T JnfcBP 


AA1 "5JL/ 

001 cW 


try CLIO 


swoo 


AAAAA1 

000001 


w b' • /p p — 

TKvEC - 


OOOOoO 


»CWI AG 


5WU I - 


00000c 


t ai p. 0 

TOLtR 


A1 

Ul 5b/<? 


C rtf 1 

»Cnl 


rum 


A/WVl/ 

000004 


T ftwC P — 

TPvfcC - 


AAA At / 

000064 


c ml 


ft iA / — 

SW05 = 


000010 


T ft A ftwC — 

T K APVfc r 


AAAAT/ 

U00U54 


»Cnj 


swu*» 


UUOUcU 


t fin — 


040000 




5W<o 


000040 


T ft T I #P ^ — 


AAAA1 / 

000U14 


»CNILC 


bWOo 


AAA1 A A 

000100 


f C T A r»ft 


AOC 1 1 A 

02b 1 10 


tr&iTi /* 


Ci |A / 

bW(V 


000200 




AA1 O/ O 

UUlc*»^ 


»CN1LU 


SWUJJ 


AAA/ AA 
000400 


T C T 1 
I S I 1 


AA71 15 

UU51cY 


»CRLr 


bWUV 


AA 1 AAA 

Ul/IUUU 


T C T 1 A A 

I b I I AA 


AA11 A/ 

UU J I Us 

A 1 *5A C "5 

OlcUJt: 




Cl 1 1 

bW 1 


/W1AAT 

UOOOO^ 


T C T 1 A 

I M 1U 


IDUAGN 


cu 1 n 

bw 1 U 


AA0AAA 

UUcUUU 


f C T 1 1 


A1 11 

U I J I JO 


«f\ TQI 

»D loL 


CD 1 1 
bW 1 1 


AA/ AAA 


1 b 1 d 


AA/ Z. 7/ 
UUh*«/*» 


JtrMDAD 


CLl1 ") 

5W 1 1 


a 1 aa/v 1 
U 1 UUUU 


T C T { 

T b I 5 


UUbc>6 


»tNUC 1 


(111 I 
bW 1 7 


AOAAAA 


1 b 1 H 


AAAA/ A 
UU6U*f U 


(rtu 11 1 


bW 1 *t 


A/ AAAA 

Us UUUU 


T t T C 
I b I J 


AA/. 7Q/. 
UU6^ 56 


f r AD 


bWl 0 - 


1 AAAAA 


T C TA 
1 b 16 


AA7A7Z. 
UU /OfH 


c r nor t 
»tUPL 1 


cut 
bW« 


AAAA/V 


T C T 7 

T b 1 f 


A 1 A 7/ 3 
U I U' *»c 


>tHP Lu 


cut 
bW5 


AAAA 1 A 
UUUU I U 


T VOf\C — 

TYPDS = 


1 AZ /.AC 
I WiU-) 


•r qui u 


r 11/ 


AAAA 5 A 
UUUUcU 


T VDC — 
1 TPt 


1 A/./.A1 

1 UhhU 1 


tcoono 
StHHUK 


rut 
bWb 


AAAA/ A 
UUUU^U 


t vnnr — 
I YPUC - 


1 A/. /.AO 

I U*»*»U<: 


CCDDDf 

•tHHrC 


bW6 


AAA 1 AA 

uuu 1 uu 


T vDmu 
1 YPUrM - 


1 a/. / n/ 


•CHN lo 


lW f 


AAA0AA 


r vonc - 
1 TrUb - 


1 A/. /. A I 

1 UhhU j 


tCDDT V 

»tMH 1 T 


t HQ • 


AAA/ AA 

UUUhUU 


UNb 


A/ AAAA 

UhUUUU 


CCDT Tl 

»tHI IL 


run 
1WT 


AA 1 AAA 

UUl UUU 


1 IDC - 


A OA AAA 

U<:UUUU 


«c cr AD 


TAP 


n^nonn 

utwuv 


uu — 


nnnnm 


IF II 1 r 


THITVF- 


000014 


U1 


U00002 


sr ILLS 


TFSTNO 


020023 


U3 


000004 


SGDADR 


TFST1 


003160 


vv 


000100 


tGDDAT 


TtSTIO 


012110 


VVSET - 


000001 


JGE T 42 


TFST2 


004532 


WATCH 


001254 





. AHS. 025142 000 
000000 001 
f RR0RS DETECTED: 0 

VIRTUAI MEMORY USED: 54784 WORDS ( 214 PAGES) 

DYNAMK MEMORY AVAILABLE FOR 70 PAGES 

t ,'HMSR .H1N.C/RMSR/C *( /RMS8.D0C.C ZRMS8 . S V SMAC /M 



N 6 

8:08:36 PAGE 26-2 



A/ AAAA 
040000 


JGTSWR 


016454 


ISVPC = 


AAA -| « S\ 

000210 


AAAA/ A 
00004 U 




A1 T7C O 

01 5552 


tf f ■ tf% 

SSWR = 


« s s ftrtA 

166000 


AA/ AAA 

0U4UUU 


»HD = 


AAAAAA 

000000 


SSWRMK= 


oocooo 


AA/ AAA 

004 00U 


tf 1 i f , 1 /* T 

JHIUCT 


A 1 7/ / O 

01 /442 


STIMES 


001 1 76 


AA1 1 T/ 

001 1 54 


tf r ruT 

SICNT 


AA1 1 A/ 

001 1U4 


STKB 


AA1 i / s 

001 146 


AA1 1 OO 

UU I \dd 


tf ItiT A /*" 

»INT AG 


AA 1 1 7C 

OUl 1 5b 


STKCNT 


016034 


AA1 1 OiL 

UU 1 1 <r6 


tf f T P AAO 


AAi 11/ 

OUl 114 


tf T is f ft ■ T 

STKINT 


ft 1 ^ A/ / 

016044 


AA1 OAO 

UU1<:U<: 


»LF 


AA 1 0 1 A 

UU121U 


STK0EN= 


016043 


A1 C TCt 

Ul b5b6 


tf I Is /~ Cft 


AA 101/ 

UU1214 


STKQIN 


Ai d. AT/ 

016036 


A1 

UI6j*i*» 


»LKLbH 


001212 


tf T is Aftj I 


A 1 / A/ A 


AA 1 1 AA 
UU1 1UU 


Ci 1^ c 


001220 


tf Ti/rrn 

JTKQSR 


A 1 ^ A/ 1 

016042 


AAAAA1 
UUUUU1 


Ci 1 \tcr 
»LL VtC 


AA1 OOO 

UU1<T<Y 


tf T is P 


AA1 1 / / 


A AAA AO 


tf 1 ft a r\ft 


aai 1 
UU1 1U6 


tf T is P ft 1 # 

JTKSRv 


A4 / 1 1 / 

016 1 14 


AAAAA1 

uuuuui 


tf 1 ftCOft 


AA1 1 1 A 
UU1 1 1U 


tf TMftA 


A A 1 1// 

001 l 64 


AAAAAC 


tfi ft»/cr 


AA1 OI A 

UUV16 

A1 7O"*0 

Ul f d< d 
A1 70/L1 

Ul / 1:61 


tf tmpii 


AA1 

001 166 


A1 70/ 0 
Ul / dhd 


tf AAAlC 1 1 


tf runl 

iltVd 


AA1 1 7 A 

001 1 /o 


A1 70C/ 
U I / d J*i 


CMC 1 tf> 


C Tun? 


AAI 170 

00: 1 1? 


A1 70/7 

U I / 1*» r 


CMvrmT 


A1 / 1 C 0 

UIhI jd 


c Tun/ 
J1MP4 


AA 117/ 
L Jl 1/4 


AA1 0A7 
UU1 CU' 


•NULL 


AA 11C/ 
UU1 1 J<* 


CTfcl _ 

»1N = 


AAAA 1 O 
UUUU1 C 


A1 /LAO/. 


til IT C T — 


AAAAAA 


C TDQ 


AA1 1 C O 
UUl 1 Jd 


A1 777A 
U • JJfO 


•ULfXI 


A1 C4.A/ 

Ul 06U*t 


C T DC 1 r" 

»TPr Lb 


AA1 1 C 7 

UUl \jf 


A1 / 
U I 6U I *t 


C AAAA ft C 


A1 C/LAA 

Ul b6U6 


C T DC 
• IPS 


AA 1 1 C A 
UUl 1 bU 


A1 TXAf* 
U I JJOD 


env/c d 


A1 / 1 7X. 
U I h I 36 


C T D AD 
» 1 HAP 


A1 7C/ A 
Ul (JH\J 


A1 7 00Z. 
U I JCt*f 


tf ft A C C 


AA1 1 AA 
UU I I UU 


C TD ADO 

» 1 HArc 


A1 7CA0 
Ul fJOd 


ni 7 /AO 
U I J'lUt 


>UUt 0 


AA1 0AA 

UU I c:U6 


C T DD 

> 1 Hr - 


AAAA1 C 
WW 1 J 


A1 71 AA 
U I 0 I 6U 




A1 A7AA 
U 1 6/ U6 


C TDDAh 


A1 7C7/ 
U I f Jf t * 


A1 701 A 
U I 3d I 6 


(DM fftJ 


A1 A77A 
UI6' fO 


C T C T AM 

» 1 b irr\ 


AA 1 1 A 0 

UUl lUc 


AA1 1 A7 
UU I I Uj 


ConAr T 
>HPUl 1 


A1 77A/ 
U I f jU*» 


tTTVIU 

»ll YiN 


A1 7070 
Ul / did 


AA 111C 
UU I I I J 


CDnC 7 


AAAA1 A 

UUUU I u 


C TVDnC 

» 1 Yryb 


A1 C A 1 A 

U I 06 I U 


ai l on J 
U I Ht'Ut: 


CDC fAh 


AAI 1 A A 

UU1 1 6U 


C T VDC 

» 1 Yrt 


A1 CA7A 
Ul J\)f\J 


AA 11U 
UU 1116 


»ntoU 


AA1 1 A 0 

UU1 16c 


C T VDC r 

• 1 YPt C 


A1 C 0/ A 

Ul bc*iU 


AA1 07A 
UU I d f 6 


CDC CDC 


A1 7C.no 
U I f JVC 


CT VDC V 

»l YPtX 


A1 C.7AA 
U I 0-J6U 


A1 / C 7A 
U ImOjU 


Cdmaad 


AA1 070 
UU I d ( d 


C T VDAT 


A1 C/ AA 
U I b»»U6 


AA1 110 
UU I I I d 


cdmv/c r 


AA1 07/ 
UU I d f H 


C T VDAAI 
»l YPUN 


A1 C/ 00 
Ul b*»C£T 


UU 1 c vv 




v 1 J*iUU 


tT vpne. 

9 1 Trllj 


v 1 OOOc 


001156 


SSAVRE 


017444 


SX0F c - 


000023 


001155 


ISC0PE 


013620 


$X0N = 


000021 


001120 


$SETUP= 


000127 


IXTSTR 


013642 


001124 


SSTUP 


\77777 


$$GET4- 


000000 


013356 


ISVLAD 


014126 


SOFILL 


015605 
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SEQ 0079 



S$G£T4 


11-1 


11-1* 


























SOF ILL 

^ <-* ' ILL 


17-1 


1 7-1* 


17-1* 


17-1* 






















saocat 


13-1 

» J I 


14-1 


























SAUTOB 


6-0* 


9-29* 

7 C r 


19-1 


19-1 


19-1 




















1BDADR 


6-0* 


10-33* 


10-33* 


10-33* 


10-33* 


10-40* 


1 0-40* 


10-40* 


10-40* 


10-48* 


10-AR* 


10-£8* 

1 v ^ o 




10-48* 

1 V "40 




10-48* 


10-48* 


10-48* 


10-98* 


10-98* 


10-98* 


1 o-98* 


10-99* 


10-99* 


1 0-99* 


1 0-99* 

IV 77" 




10-1 *»7* 


lO-l *»7* 




10-157* 


10-158* 


10-158* 


10-158* 


10-158* 


10-185* 


10-185* 


10-190* 


10-190* 


10-322* 

I V JC c 


10-322* 


i v jcc 


10-V?* 

V JC c 


10- *??* 




1 0-322* 


10-322* 


10-322* 


10-323* 


10-323* 


10-323* 


10-323* 


10-323* 


10-323* 


10-323* 

1 V Jb J 


10-323* 

1 V JL J 


25-27 

C J C f 


?5-?R 

CJ CO 


?5-?9 

C J Cr 




25-33 


25-37 




















SBODAT 


6-0* 


10-33 


10-33 


10-33 


10-33 


10-33* 


10-33* 


10-40 


10-40 


10-40 

1 V ~ w 


10-40 


10-40 


10-40 


10-40* 




10-40* 


10-48 


10-48 


10-48 


10-48 


10-48 


10-48 


10-48 


10-48 


10-48* 

1 V ~V 


10-48* 

IV Hi 


10-^8* 


10-&8* 


in-*;*;* 




10-56 


10-98 


10-98 


10-98* 


10-98* 


10-98* 


10-98* 


10-98* 


10-99 


10-99 

IV 7 7 


1 0-99* 

IV 7 7™ 


10-99* 

1 v 77" 


lO-OO* 

1 V 77" 


10-00* 




10-99* 


10-157 


10-157 


10-157* 


10-157* 


10-157* 


10-157* 


10-157* 


10-157* 


10-158 

IV ' V 


10-158 

1 V 1 J V 


10-158* 

IV \ J%J 


10-1 58* 

1 V 1 JO 


I V 1 JO" 




10-158* 


10-158* 


10-158* 


10-185* 


10-185* 


10-185* 


10-185* 


10-190* 


10-190* 


10-190* 


10-190* 


10-322 

1 V JCC 


10-322 

1 V JCC 


10-3?? 

1 v JCC 




10-322 


10-322 


10-322 


1 0-322 


10-322 


10-322* 


10-322* 


10-322* 


10-322* 


10-323 


10-323 

1 V JC J 


10-323 

l V JC J 


i v JC J 


10-3?3 

1 V JC J 




10-323 


10-323 


10-323 


10-323* 


10-323* 


10-323* 


10-323* 


25-27 


25-28 


25-29 


25-33 

w J J— * 


25-37 

C J J' 


WELL 


6-0* 


14-1 


14-1 


14-1 


19-1 


19-1 


19-1 












tfHARC 


16-1 


16-1* 


16-1* 


16-1* 


16-1* 




















SCKSWR 


19-1* 


22-1 


22-1 
























$CW1 


6-0 


6-0 


6-0* 


6-0* 






















$012 


6-0 


6-0 


6-0* 


6-0* 






















SCM3 


6-0 


6-0 


6-0* 
























$CM4 


6-0 


6-0 


6-0 


6-0 


6-0 


6-0 


6-0 


6-0 


6-0 


6-0 


6-0* 


6-0* 

w V^ 


6-0* 


6-0* 




6-0* 


6-0* 
























tCMTAG 


6-0* 


9-24 


9-24 


9-24 


9-24 


9-24 


9-24 


9-24 














tCNTLC 


19-1 


19-1 


19-1 


19-1 


19-1* 




















tCNTLG 


19-1 


19-1* 


























SCNTLU 


19-1 


19-1 


19-1* 
























tCRLF 


6-0* 


9-50 


9-69 


9-105 


11-1 


14-1 


14-1 


14-1 


15-1 


15-1 


15-1 


15-1 


16-1 

1 V I 


16-1 

1 V ■ 




16-1 


19-1 


19-1 


19-1 


19-1 


20-1 


20-1 












SDBLk 


18-1 


18-1 


18-1* 
























SOOAGN 


11-1 


11-1 


11-1* 
























SDTBL 


18-1 


18-1* 


























SENDAO 


5-5 


9-29 


11-1* 


14-1 






















SENOCT 


9-24 


11-1* 


























SENULL 


11-1* 




























SEOP 


10-323 


11-1* 


























SFOPCT 


9-24* 


11-1 


11-1* 
























SERFLG 


6-0* 


10-322 


10-322* 


10-323 


10-323* 


13-1 


13-1 


13-1 


13-1 


13-1* 


14-1 


14-1 


14-1* 




SERMAX 


6-0* 


9-24* 


9-77* 


13-1 


13-1 




















tFRROR 


9-24 


14-1* 


























SERRPC 


6-0* 


14-1 


H-1 


14-1 


14-1* 


14-1* 


15-1 


15-1 


25-27 


25-28 


25-29 


25-30 


25-31 






25-33 


25-34 


25-35 


25-37 


25-38 


25-39 


25-40 














tERRTB 


8-0* 


15-1 


























SERRTY 


14-1 


15-1* 


























SERTTL 


6-0* 


11-1 


11-1 


11-1* 


14-1 


14-1 


H-1* 
















SESCAP 


6-0* 


9-24* 


























$F ILLC 


6-0* 


16-1 


16-1 


16-1 






















SF1LLS 


6-0* 


16-1 


16-1 
























SGOADR 


6-0* 




























SGDDAT 


6-0* 


10-33 


10-33 


10-33* 


10-33* 


10-33* 


10-33* 


10-40 


10-40 


10-40* 


10-40* 


10-48 


10-48 


10-48 




10-48 


10-48* 


10-48* 


10-48* 


10-48* 


10-48* 


10-48* 


10-48* 


10-48* 


10-53* 


10-56 


10-98 


10-98 


10-98 




10-98* 


10-98* 


10-98* 


10-99 


10-99 


10-99 


10-99* 


10-99* 


10-99* 


10-157 


10-157 


10-157 


10-157 


10-157 




10-157* 


10-157* 


10-157* 


10-158 


10-158 


10-158 


10-158 


10-158 


10-158* 


10-158* 


10-158* 


10-185 


10-185 


10-185* 




10-1*0 


10-190 


10-190* 


10-322 


10-322 


10-322 


10-322 


10-322* 


10-322* 


10-322* 


10-322* 


10-322* 


10-322* 


10-322* 




10-322* 


10-323 


10-323 


10-323 


10-323 


10-323* 


1 0-323* 


10-323* 


10-323* 


10-323* 


10-323* 


10-323* 


10-323* 


25-28 



fZRWSBO RH05/3/2 DU °OR 1ST 2 *ACRO V04.00 
CROSS REFERENCE T A8LE (CREf V01-05 ) 



C 7 

4-APR-81 18:08:36 PAGE S-2 



SEQ 0080 





25-29 


25-37 


















SGET42 


11-1* 




















SGT42P 


11-1 


11-1* 


















SGTSWR 


19-1* 


22-1 


22-1 
















SHD 


4-516 


4-516 


4-516 
















tHlOCT 


20-1* 


20-1* 


















SICNT 


6-0* 


9-93* 


13-1 


13-1 


13-1 


13-1* 


13-1* 








SI NT AG 


6-0* 


19-1 


19-1 


19-1 


19-1 


19-1* 












6-0* 


14-1 


14-1 


14-1 


14-1 


14-1* 


14-1* 


15-1 






tif 


6-0* 


14-1 


14-1 


16-1 


16-1 


19-1 


19-1 


19-1 


20-1 


20-1 


SlKCSB 


7-0* 


12-11* 


















! SLKCSR 


7-0* 


12-7 


12-12* 
12-20* 
















tLKS 


7-0* 


12-16 
















SLLVEC 


7-0* 


12-17 


















SL PADR 


6-0* 


9-24* 


9-78* 


10-20* 


10-98* 


10-99* 


10-157* 


10-158* 


10-178* 


10-322* 




13-1* 


















SLPERR 


6-0* 


9-24* 


9-79* 


10-20* 


10-98* 


10-99* 


10-157* 


10-158* 


10-178* 


10-322 


ILPVEC 


7-0* 


12-8 


















SNAIL 


9-24 


9-29 


13-1 


14-1 


16-1 












SMNEW 


19-1 


19-1* 




















19-1 


19-1* 


















SMXCNT 


13-1 


13-1 


13-1 


13-1* 














SNULL 


6-0* 


16-1 


16-1 


16-1 














SNWTST 


10-20 


10-20 


10-20* 


10-20* 


10-98 


10-98 


10-98* 


10-98* 


10-99 


10-99 




10-157* 


10-157* 


10-158 


10-158 


10-158* 


10-158* 


10-178 


10-178 


10-178* 


10-178* 




10-3?3 


10-323 


10-323* 


10-323* 


10-327* 












SOCNT 


17-1* 


17-1* 


17-1* 
















SOMOOF 


17-1 


17-1* 


17-1* 


17-1* 


17-1* 


17-1* 










(OVER 


13-1 


13-1 


13-1 


13-1* 














SPASS 


6-0* 


9-76* 


11-1 


11-1 


11-1 


11-1* 


11-1* 


13-1 


13-1 


13-1 


SOUES 


6-0* 


14-1 


14-1 


16-1 


16-1 


19-1 


19-1 


19-1 


19-1 


20-1 


SR2A 


22-1 


















SRDCHR 


19-1* 


22-1 


22-1 
















SRODEC 


22-1 




















SROLIN 


19-1* 


22-1 


22-1 
















SRDOC r 


20-1* 


22-1 


22-1 
















SRDS2 


19-1 


19-1* 


















SREGO 


6-0* 




















SREGAO 


6-0* 




















SRESRE 


21-1* 


22-1 


















SRNADR 


7-0* 


9-70 


9-103 


9-110* 


9-113 


10-17 


25-36 








SRMVEC 


7-0* 




















SRTNAD 


11-1* 




















SSAVRE 


21-1* 


22-1 


22-1 
















SSCOPE 


9-24 


13-1* 


















SSETUP 


4-705 


4-705 


4-705 


4-705 


4-705 


4-705* 


4-705* 


4-705* 


4-705* 


4-705* 




9-24 


9-24 


9-24 


9-24 


9-24 


9-24 


9-24 


9-24 


9-24 


9-29 




13-1 


14-1 


14-1 


14-1 


14-1 


19-1 


19-1 


19-1 


19-1 


19-1 


SSTUP 


4-705 
4-705* 


4-705 


4-705 


4-705 


4-705 


4-705* 


4-705* 


4-705* 


4-705* 


4-705* 


SSVLAO 


13-1 


13-1* 


















SWPC 


5-5 


5-5* 


















SSWR 


4-512* 


4-516 


4-517 


4-517 


4-517 


4-517 


4-517 


4-517 


4-517 


4-S17 




9-24 


9-24 


9-24 


9-24 


10-20 


10-98 


10-99 


10-157 


10-158 


10-178 




1'-1 


11-1 


11-1 


11-1 


12-48* 


13-1 


13-1 


13-1 


13-1 


13-1 




15-1 


13-1 


13-1 


13-1 


13-1 


13-1 


13-1 


13-1 


14-1 


14-1 



4-705* 
9-29 



6-0 
10-322 

13- 1 

14- 1 



13-1 
10-323 



13-1 
10-323* 



•3-1 



10-99* 

10-322 



20-1 



10-157 
10-322* 



10-157 
10-322* 



9-24 
9-29 



9-24 
11-1 



9-24 
11-1 



4-705* 4-705* 4-705* 4-705* 



6-0 
10-323 

13- 1 

14- 1 



6-0 
10-327 

13- 1 

14- 1 



9-24 
11-1 

13- 1 

14- 1 



i 



D 7 



SfQ 0081 



I 



t 7 

ZRMS80 RM05/3/2 DO POR TST ? HACRO V04.00 4-APR-81 18:08:36 PAGE S-3 
'ROSS REFERENCE TABLE (CRf V01-05 > 



SEQ 008? 



SSwR**< 

S T ESTN 
t'IMES 

STkB 

STKCNT 

ITKINT 

STKQEN 

tTrQIN 

SKQOU 

S T *QSR 

tTKS 

S T *SRV 

STWPO 



STMP 1 
STWP? 
STMP3 
STW>4 

SfN 



STPB 

STPFLG 

$TPS 

STRAP 

STRAP? 

STRP 



STRPAD 
STSTW 

STTYIN 

STYP8N 

STYPDS 

$TVPE 

STYPfC 

STYPEX 

Si YPOC 



13-1 

15- 1 
6-0* 

13-1 

6-0* 
19-1 

9-31 
19-1 
19-1 
19-1 
19-1 

6-0* 
19-1 

6-0* 
10-43* 
10-99 
10-157- 
10-190 
10-322* 
10-523* 

6-0* 
10-157* 
10-190 

6-0* 
10-157 
10-185 

6-0* 
10-157 
10-185 

6-0* 
10-48* 
10-32? 
10-323* 

4-513* 
10-157 
10-322 

6-0* 

6-0* 

6-0* 

9-24 
22-1 
22-1 
22-1 
22-1 
22-1 
22-1* 
22-1 

6-0* 
1 3-1 • 
19-1 
22-1 
18-1* 

16- 1* 
16-1 

16- 1 

17- 1* 



9-24* 

13- 1 
16-1 
19-1 

9-74 
19-1 
19-1 
19-1 
19-1 
16-1 
19-1* 
10-33 
10-48* 
10-99 
10-158 
10-190 
10-322* 

10-98 
10-157* 
10-190* 
10-98 
10-157 
10-185* 
10-98 
10-157 
10-185* 
10-33 
10-48* 
10-32?* 
10-5?3* 
4-516 
10-157 
10-3?? 
16-1 
16-1 
16-1 
2?-1* 
??-1* 
??-l 
??-1 
??-1 
??-1 
??-1* 
??-1* 
10-?0* 

14- 1 
19-1 

??-1 
??-1 
16- 1 
16-1 
??-1 



10-?0* 


10-98* 


4 /"I Art. 

10-99* 


13-1* 


13-1* 




16-1 


19-1 


19-1 


19-1* 


4 rt 4 — _ 

19-1 * 


4 rt 4 a. 

19-1 * 


4 rt 4 

19-1 


19-1 




19-1* 






i9-1* 


4 4 

19-1 * 


1 A 4 a. 

19-1 * 


4 f\ 4 m 

19-1* 


4 A 4 

19-1 * 


in i * 

19-1 * 


19-1 


19-1* 




16-1 


19-1 


19-1 


1 A tl 


1 A 77* 

1 0-3 3* 


1 A 77* 

10-33* 


4 A / D 

10-48* 


1 A /O* 

1 0-48* 


1 A / O* 

1 0-48* 


1 a on 
10-V9 


1 A no* 
10-99* 


1 A OO* 

1 0-99* 


1 A 1CD 

10-00 


1 A 1 CO 

10- 1 jo 


1 A 1 CO 

10-1 !>8 


1 A 1 OA 

10- I 90 


1 A_ 1 OA* 

I o-i vu* 


1 A—1 OA* 

1 0— 1 90* 


1A 71T» 


1 0- 3^3 


1 A 7"»T 


1 A OQ 

io-98 


1 A OO* 


i u— yo* 


1 A_ 1 CS 

l O-l jo 


1 A—1 CO 

10- I DO 


1 A_1 CB 
IO— 1 2)8 


1 A—1 OA» 

io— iyo* 






I o-ys 


1 A OO 


1 n_QB 
IO— tB 


1 A— 1 C? 

10-1 ?f 


1 A—1 C 7* 
TO— I Jf * 


1 A_1 C7» 

10— \j( * 


1 A— 1 OC t 

IO— IB?* 


i o— 1 on 

I U- I tU 


1 A_ 1 OA 
I O— I tU 


1 A OO 

io-98 


1 A.OB 


10-98 


1 A_1 C7 
I O- I J f 


I U I Jf * 


1 A_1 C.7* 
I U— D(* 


i o— ific» 
1 O— l 85* 


1 A—1 OA 


I U— I tU 


1 A— 77 

I 0-33 


1 A—77* 

1 O 33 * 


1 o_ 77* 
1 0-33 * 


i 0-£R* 
1 u «*o w 


1 0— cR* 
1 UNO" 


io-£R* 

iv *«o" 


10-3??* 


10-322* 


10-322* 


10-323* 


10-323* 


10-323* 


10-20 


10-20 


10-?0 


10-157 


10-157* 


10-158 


10-322* 


10-323 


10-3?3 


16-1 


16-1* 




16-1 


16-1 




16-1 


16-1 





?2-1 
2?-1 
??-1 
??-1 
22-1* 

10-98* 

14-1 

19-1 

22-1 
22-1 
16-1 
16-1* 

22-1 



22-1 
22-1 
22-1 
22-1 
22-1* 

10-99* 

14-1 

19-1 



16-1* 



22-1 
22-1 
22-1 
22-1 
2?-1* 

10-157* 

14-1 

19-1 



19-1 



10-157* 

19-1 
19-1* 



??-1 
??-1 
??-1 
?2-1 



10-158* 

15-1 

19-1* 



10-158* 10-178* 10-322* 
19-1 19-1 19-1 



10-322* 10-323* 
19-1 



'C-525* il-1- 



15-1 



19-1* 


19-1* 














1 o— 1 * 

i y— i * 
















IO— 1 
I v— I 


1 Q_ 1 
I T— I 


i y i 


1 O— 1 » 

1 T 1 " 


1 a— i • 

1 T 1 ■ 


1 O— 1 * 


1 Q_ 1 • 
1 T 1 • 


1 O— 1 * 

i y- 1 * 


10— 7 7* 


1 0-77* 

I U J j 




10-iCR 
1 U HO 


1 0-/.B 

I use 


1 0-Z.R 




1 0— Z.B* 




IO— OB 

I U TO 


I U TO 


lO-OR 
1 U TO 


1 O— OB* 

I U— TO* 


1 O— OB* 
I U— TO" 


1 n_ oR* 


1 A— OB* 
IU— TO* 


1 n_QQ* 

I U — tt" 


1 O-QQ* 


1 U 1 J # 


10-157 
I U I j f 


10-157 

1 U 1 J 1 


1 0-1 57 
I u— I J f 


10-1 57* 
1 U— 1 j ( ■ 


1 0-1 57* 
IU- I J'* 


in— 1 5R* 

I V I JO* 


1 0-1 5R* 
1 U 1 JO* 


10-1 5R* 


1 0-1 5R« 


10-1 Rc. 

1 U 1 O J 


10-1R5 
IU— IOJ 


10-1R5 
I U I O J 


1 0— 1 B5* 

I U I O J 


10-7?? 
1 U jcc 


1 0-7?? 
I KJ JCC 




10-7P? 
I U jcc 


1 0-7??* 
I U— JC c * 


i 0-7??* 

I V JCC 


10-7??* 

1 V JCC 


10-7??* 
I U Jc c 


io-7?7 

I U JC J 


io-7?7 

I U Jc J 


I V JC J 


1 V Jc J 


10-7?7* 

I U jc J 


10-7?7* 

1 U jc J 


10-7?7* 

I V JC J 


10-7?7* 

1 U Jc J 


1 U "77 


1 U tt 


1 O-QQ* 

I U 77" 


1 O-OO* 

1 U 77" 


1 O- 157 

I U I J f 


10-157 
I U I J f 


10-157 
1 U— 1 J f 


1 0-157* 

I U I J ' " 


10-158* 


10-158* 


10-158* 


10-158* 


10-185 


10-185 


10-185* 


10-185* 


10-98* 


10-98* 


10-99 


10-99 


10-99 


10-99 


10-99* 


10-99* 


10-158 


10-158 


10-158 


10-158 


10-158* 


10-158* 


10-185 


10-185 


10-190 


10-190 


10-190* 


10-190* 


25-38 








10-98* 


10-98* 


10-99 


10-99 


10-99 


10-99 


10-99* 


10-99* 


10-158 


10-158 


10-158 


10-158 


10-158* 


10-158* 


10-185 


10-185 


10-190 


10-190 


10-190* 


10-190* 


25-38 








10-33* 


10-33* 


10-48 


10-48 


10-48 


10-48 


10-48* 


10-48* 


10-98 


10-98* 


10-98* 


10-99 


10-99* 


10-99* 


10-3?? 


10-32? 


10-322* 


10-322* 


10-322* 


10-32?* 


10-323 


10-323 


10-323 


10-323 


10-323* 


10-323* 














10-20* 


10-98 


10-98 


10-98 


10-98* 


10-99 


10-99 


10-99 


10-158 


10-158 


10-158* 


10-178 


10-178 


10-178 


10-178* 


10-32? 


10-323 


10-323* 


10-327 


10-327 


10-327* 


?6-?0 







??-1 

?2-1 
22-1 
??-1* 



??-1 
??-1 
??-1 
??-1* 



22-1 
22-1 
2?-1 
22-1* 



22-1 
22-1 
22-1 
22-1* 



10-178* 10-32?* 10-323* 11-1* 



?2-1 
2?-1 
??-1 
??-1* 



13-1 



??-1 
?2-1 
22-1 
2?-1* 



13-1 



22-1 
2?-1 
??-1 
??-1* 



13-' 



19-1* 

10-48* 

10-99 

10-157* 

10-185* 

10-3??* 

10-3?3« 

10-157* 
10-190 

10-157 
10-185 

10-157 
10-185 

10-48* 
10-5?? 
10-323 

10-99* 

10-322 



22-1 
22-1 
22-1 
22-1* 



13-1 



22-1 



f 7 



SfQ 008% 



G 7 

7WSB0 RM05/3/? Du °0« 7S* <? 14 V_ «C4.0; 4-AP8-81 '8:08:36 t-'A&E S-4 
-*OSS REFERENCE 'ABLE : C»r c a)1-C5 : 



SFO 008^ 





1 7—1 * 
I f — \m 


33—1 
' < — 1 

o- 1 




ti~ I 




IO- I 


1 A_1 


fw TC TO 


I 5— i * 




A 1 0 


/ _C37» 
*>-3£ '» 




A I r 






ADDKI b 


y- luc 


3?—i n* 
tr 5- 1 U» 


ADWfc UK 


V-30 


c >— *»* 


Arte 


t»— ou*»* 




AbW 1 


7_n* 

r — (J» 


y— j3* 


ATA 

A T U 


*>— O l 0# 




ATI 
A I 1 


*•— o i y* 




AT 0 

AT^ 


*•— OcU* 




ATS 


Z. — A 3 1 if 




ATA 

A 1 •» 


*» "DCC* 




A T C 

P J 






ATA 

A i O 






AT 7 
A 1 r 






ATA 
A 1 A 


•»— ;t l» 


1 A.OR 

i u yo 




1 A-i 

1 v 1 3o 


I V I 30 


A T AD 1 T 
A 1 AOl 1 


y— 3D 


CD I I »» 


a Ankif i 


y— Or 


c 3 — y» 


BAf» TMH 


V— 3w 


0-3 A 

y-co 


Q A 1 
OA 1 


H — 3*»3w 




q r ta 


i.CI Qj> 
•• — 3 1 T* 




d t taa 


*»- j i y 


h— 3 i y» 


ai i v i 


••—3 i y 


h— 3 i y» 


Q I T A3 
Si 1 VC 


••—3 1 T 


•» — 3 1 7* 


a I T A7 


£-510 
•»— 3 i y 


*• — 3 i y» 


a 1 TAZ. 
BI 


£-510 


H— 3 1 y— 


Bi 1 U3 


M" 3 I V 


£-51 Qm 

H J 1 W 


a r taa 


£-51 Q 

*»"3 1 y 


•»— 3 i y* 


B i 1 V/r 


H — J 1 T 


*» — 3 1 7* 


Q r T All 


*♦ j i y 


/ _C 1 Qj. 

•♦— 3 i y» 


Q ! T AO 

oil uy 


*t 3 i y 


h — 3 i y* 


Bf T1 


£-510* 
■♦—3 i y* 




U) T1 A 


£-51 Qm 
t"j i y» 


I ■•— i 


Bf T1 1 
Si 1 II 


1 — 3 1 W 


1 T-1 

i j— i 


Bi 1 lc 


/.CI Q » 
•• 3 1 TW 




Bf T1 < 

Si 1 1 3 


•• 3 1 TW 


i£-1 


BIT It 

Bi 1 


M 3 1 W 


i j— i 


Bf T 1 < 

Bill? 


/_C 1 Qm 
H J 1 TW 




B t T3 
Bi lc 


/.CI Qm 

•i—3 1 yw 




HIT? 
Bi 1 3 


/ _ C 1 Q » 




B 1 JL 
Bi < H 


H j i yw 




BITS 
Bi 1 3 


*t J I TW 




B 1 TA 
BI IO 


A)— 3 iyw 




B t T 7 

Bi l r 


/ _C1 Q » 
•1—3 1 TW 




Bf Tfl 

BI IO 


/ _ C 1 Q » 
•>— 3 1 yw/ 




BI T9 








4-519# 




CHANGE 


9-5? 


9-99* 


CHGADR 


7-0* 


9-H« 


CKCLH 


9-59 


9-7? 


ckciki 


1?-5 


T2-K* 


ckcik? 


15-1? 


'?-??» 



10-98 
^0-158 



13-1 



10-98 
10-185 



13-1 



10-98 
10-185 



14-1 



10-99 
10-185 



H-1 



10-99 
10-185 



10-99 
10-190 



10-99 
10-190 



10-157 
10-190 



10-157 
10-190 



10-157 
10-3?2 



10-157 
10-323 



10-158 



13-1 



H-1 



9-17* 
12-5* 



9-99 



9-101* 



SEO 0O8 r , 



I 7 

1 ZRM^BO RM05/3/2 DU POR TST 2 MACRO V04.00 4-APR-81 18:08:36 PAGE S-5 
CROSS REFERENCE TABLE CCREF V01-05 ) 



SEQ 0086 



CKERR 



CKSyR 

CLOCK 

CLR 

CONTUE 

CPSAVE 

C* 

CRLf 



(VCLED 

CYCLEU 

DC* 

DDISP 

DEI 

on 

OF 14 

DF17 

DF2 

OF 25 

DF30 

OF 34 

D'5 

OF 6 

Of? 

Off 20 

DH1 

DH13 

DH14 

DH17 

DH2 

DH24 

DM25 

OH 30 

DH34 

DH35 

DH37 

DH40 

DH5 

DH6 

DH7 

DIG8 

DISPLA 

DISPRE 

Dl64 

DLT 

DMO 

OPE 

DPR 

DRQ 
DRV 



7- 0* 
10-48- 
10-322- 
13-1 
12-9 

4-547* 
10-1 82 

4-51 9* 
4-51 90 
Z*>~\2 
25-20 
10-322 
10-322 
4-61 00 
4-51 90 
4-581* 

8- 7 
6-84 
8-106 
8-14 
8-148 
8-164 
8-192 
8-35 
8-42 
8-49 
4-577* 
8-5 
8-75 
8-82 
8-104 
8-12 
8-139 
8-146 
8-162 
8-190 
8-197 
8-211 
8-218 
8-33 
8-40 
8-47 

4- 5 78* 
6-0* 

5- 1* 
4-580* 
4-557* 
4-614* 
4-656* 
4-584* 

10-323 
4-641* 
4-583* 

10-3J3 
4-519* 



4 A f T 

10-33 


10-35 


10-33* 


10-33* 


10-33* 


4 f\ ft- 

10-33* 


10-40* 


10-40* 


10-40* 


10-40* 


10-48* 


10-48- 


10-48* 


10-48* 


10-48- 


10-48* 


10-48* 


10-98* 


10-98* 


10-99* 


10-99* 


10-322* 


10-322* 


10-322- 


10-322* 


10-322 


10-322- 


10-322- 


10-323- 


10-323* 


10-523* 


10-323* 


10-323* 


10-323* 


10-323* 


10-323* 


4 / 4 

14-1 


4 / 4 

14-1 


22-1* 






















4 •« 4 4 

12-13 


1 2-29* 
























10-22 


10-33 


10-33 






















10-187 


23-15* 
























1 5-1 


1 5-1 


l 5-1 * 


15-1* 


i*i- 1 


1 / _1 


14-1 


1 J 1 






14—1 - 


14-1 • 


4 C 4 

15-1 


16-1 


16-1 


24-16 






















9-6 


9-29 


9-29 


16-1 


16-1 


23-3 


23-4 


23-5 


23-6 


23-7 


23-7 


23-9 


23-10 


23-13 


23-14 


23-15 


23-15 


23-16 


23-17 


23-17 


25-6 


25-8 


25-11 


25-14 


25-16 


25-18 


25-22 






















10-322 


10-323 


10-323 


23-16* 




















10-322 


10-323 


10-323 


23-17* 





















6-0 

8-21 
25-47* 
8-113 
8-28 
25-49* 
8-215 
25-51* 
25-44* 
8-77 
8-141 

8-19 
8-97 

25-8* 
8-111 
8-26 

25-11* 

25-13* 
8-225 

25-16* 

8- 204 
25-20* 
25-22* 
25-3* 
25-4* 
25-5* 

9- 24* 
9-24 



10-48 

10-48 
6-0 



9-24 

8-56 

25-48* 
8-171 

8-227 



8-63 

8-178 
25-50* 



8-99 


25-45* 


8-199 


8-206 


8-54 


8-61 


25-6* 




25-10* 




8-169 


8-176 


25-14* 




25-18* 




9-24* 


13-1* 


10-48 


10-98 


J 0-48 


10-98 


9-24 





8-70 
25-43* 

8-220 
8-68 

25-2* 



U-1* 

10-98 
10-98 



8-91 



8-120 



8-127 



8-134 



8-185 ^5-42* 



25-46* 
8-89 



8-118 



8-125 8-132 8-183 25-1* 



10-99 
10-99 



10-99 10-157 10-157 10-158 10-158 10-185 10-190 10-322 
10-99 10-157 10-157 10-158 10-158 10-185 10-190 10-322 



l 



DfOO 



SEO 0087 



K 7 

CZRMSBO RMG5/3/2 DU POR TST 2 HACRO V04.00 4-APR-81 18:08:36 PAGE S-6 
fROSS REFERENCE TABLE (CRE* V01-05 ) 



SEQ 0088 



0T01 


4-633* 




DT02 


4-634* 




OT03 


4-635* 




DT04 


4-636* 




DT05 


4-637* 




DT06 


A -6 38* 




0T07 


/ ^ 7/"\*y 

4-639* 




0T08 
01 


4-640* 




8-6 


8-20 


DTI 3 


8-76 


a ao 

8-98 


DTK 


a a 9 

8-83 


1C 77* 

25-33* 


DT1 7 


a 4 ac 

8-105 


8-112 


DT2 


a if 

8-13 


a 1 9 

8-27 


DT24 


a 1 / r\ 

8-140 


ic icm 


DT25 


a 1/7 




DT30 


8-163 


D 11 1 

o-c\c 


DT34 


8-191 


25-38* 


DT35 


a 1 ad 

8-198 


8-205 


DT40 


B-21S* 


25-4 U* 


DT5 


O "7/ 

8-34 


25-2V* 


D"6 


D / 1 

8-41 


25-30* 


fit 7 

DT7 


8-48 


1C T1 » 

25-31* 


DTE 


4-6U7 * 




DvA 


4-5 '2* 




DVC 


4-65 / * 




ECH 


7 ^A 1 M 

4-6U1* 




EC I 


4-668* 




ryi 


D / 

8-4 


iy T* 

24-3* 


In 10 




ly _1 A* 
24- 1 (J* 




O £. A 

8-60 


24-1 i* 


EM12 


8-6' 


jy _1 o« 

24-1 2* 


EMI 5 


O 7/ 

8-74 


1/ 1 T* 

24-1 3* 


c ill J 


8-81 


iy 1 y m 


f" U 1 c 


0 DO 

8-88 


oy 1 
24-1 5* 


ryi/ 




oy 1 
24-1 6# 


ryi *7 


Q_1 AT 

8-IU5 


D7 1 Q» 

24-1 8* 


r y i 

FM2 


O 11 

8-1 1 


*}y y m 
^4-4* 


EM20 


U 1 1 A 

8-1 1U 


iy i q« 
^<»-l V* 


ry*)1 

EM2 1 


8-1 1 7 


iy OA* 


EM22 


o 1 oy 
8-124 


oy 01 y 


EM23 


J-l 31 


oy 

dU-dd* 


r lyoy 

EM24 


O 1 TO 

8-1 58 


"it 1 T» 
dH-d3>> 


r y 1 C 

EM25 


8-145 


24-24* 


ry] 

EH3 


O 1 o 

8-18 


oy Cm 


EM30 


8-161 


oy OCy 


r mT1 

Ens i 


8-168 


d**~do M 


PUT'S 

EM52 


O 1 7C 

8-1 o 


"iJ 17* 

24-27* 


EM33 


O 1 

8- 1 82 


oy noy 
24-28* 


EM34 


O 1 OA 

8- 18V 


Oy _1Qy 

24 -2 V* 


tnJJ 




P4-^n# 


EM36 


8-203 


24-31* 


EM37 


8-210 


24-32* 


EM4 


8-25 


24-6* 


FM40 


8-217 


24-33* 


EM41 


8-224 


24-34* 


EMS 


8-32 


24-7* 



8-55 8-62 8-69 8-90 8-119 8-126 8-133 8-184 25-27* 
25-32* 

25-34* 

8-1 70 8-1 77 25-28* 

8-226 25-37* 
25-39* 



Fit 



8-39 2^-8* 



L 7 



SEO 0089 



ft 7 

CZRftSBO RM05/3/2 OU POR T ST 2 HACRO »K)4.00 4-APR-81 18:08:36 PAGE S-7 

CROSS REFERENCE TABLE CCRfF vQi-05 J SEO 0090 



E«7 


8-46 


24-9* 












EMTvEC 


4-519* 


9-24* 


9-24* 










EMTERA 


9-33 


23-3* 












ERR 


4-590* 














ERROR 


4-519* 










9-27* 


12-5* 


ERRVEC 


4-519* 


9-24 


9-24* 


9-24* 


9-26* 




1 3-1 - 


13-1 • 


1 3-1 - 


H-1 


14-1* 


14-1* 




EXEC 


9-60 


9-67* 


10-20 


10-98 


10-99 


10-157 


10-158 


FO 


4-567* 














F1 


4-568* 














T2 


4-569* 














F3 


4-570* 














F4 


4-571* 














FER 


4-599* 












10-323 


FMT16 


4-669* 


10-98 


10-99 


10-322 


10-322 


10-323 


GNS 


5-1 


5-1 


9-6 


9-29 


11-1 


11-1 


22-1 


22-1 
22-1 


22-1 
22-1 


22-1 


22-1 


22-1 


22-1 


22-1 


GO 


4-566* 














GRV 


4-579* 














GTSWR 


9-29 


22-1* 












HCE 


4-602* 














HCI 


4-667* 














HCRC 


4-603* 














HT 


4-519* 


16-1 


16-1 










IAE 


4-605* 














1BSAVE 


14-1 


14-1 


14-1 


14-1 


14-1 


14-1* 


14-1 * 


IE 


4-525* 














ILF 


4-595* 














ILR 


4-596* 














IOTVEC 


4-519* 


9-24. 


9-24* 










IR 


4-548* 














JVC 


4-660* 














KYBCTL 


7-0* 


9-75* 


9-92* 


10-20 


10-20* 


10-98 


10-98* 




10-178* 


10-191 


10-322 


10-322 


10-322* 


10-323 


10-323 


LBC 


4-658* 














LBT 


4-586* 














LF 


4-519* 


16-1 


16-1 


23-7 


23-8 


23-10 


23-11 


LSC 


4-659* 














MAXTN 


9-85 


26-22* 












MCPE 


4-530* 














MDPE 


4-550* 














MOH 


4-642* 














MOL 


4-588* 


10-48 


10-48 


10-98 


10-98 


10-99 


10-99 




10-322 


10-322 


10-322 


10-322 


10-323 


10-323 


10-323 


MXF 


4-551* 














NBA 


4-644* 














NED 


4-554* 


10 5^ 


10-33 


10-33 


10-33 


10-322 


10-322 


NEM 


4-553* 














NOATA 


8-232* 


1L-- 'i 


10-98 


10-99 


10-99 


10-157 


10-157 




10-185 


10-185 


10-185 


10-190 


10-190 


10-190 


10-190 


NOCLOC 


9-61 


23-7* 












NOSE I Z 


7-0* 














NTRH 


9-106 


23-11* 












OFO 


4-666* 














OPE 


4-661* 















12-6* 12-15* 12-24* 13-1 13-1 13-1* H-1 
10-178 10-322 10-323 11-1 



22-1 22-1 22-1 22-1 22-1 22-1 22-1 
22-1 22-1 22-1 22-1 22-1 22-1 22-1 



14-1* 14-1* 



10- 99 10-99* 10-157 10-157* 10-158 10-158* 10-178 

11- 1 



24-16 



10-157 10-157 10-158 10-158 10-185 10-190 10-322 

10-323 10-323 

10-322 10-323 10-323 10-323 

10-157 10-157 10-158 10-158 10-158 10-158 10-185 



8* 



N 7 



SEO 0091 



9 8 

C7RMS80 W05/3/2 DO POR TST 2 HACRO V04.00 4-APR-81 18:08:56 PAGE S-8 
CROSS REFERENCE T AflLE (CREF V01-05 ) 



SEO 0092 



UTTR • 


f "V* 


in-i 57* 


1 V 1 -'O 


2S-A0 
























4-54QJT 




























D AD 


4-5QAJT 




























PAT 


«»— j*tOw 




























Pf Ff fI 


15-1 


15-1JT 

1 J * U 


























PFECM1 


15-1 


15-1* 


























pc c r up 


15-1 


1 5-1# 


























Pf PfMX 




15-1* 


























~' tint 


1 5-1 


1 


























r r i j n 


15-1 


i j i ^ 


15-1 • 

1 J 1 
























PGE 


4-557JT 






























4-5A5* 

10-158 


10-1 AS 


10— £ A 
10-100 

1 V 1 TV 




10-48 


10-48 

IV *t o 


10-48 

' V ^V 


10-98 

1 V TO 


10-98 

1 V TO 


1C-99 

1 W T T 


10-99 

1 V TT 


10-1 57 

IV \ J i 


10-157 

IV 1 Jf 


10-158 

1 V^ 1 JO 


pip 
— » — 


4-589* 

H JOT* 




























PIRO 


4-519* 






























■# J 1 7w 








9-43 

T ~ j 




















PORTA 


7-0* 

f V™ 


T J J 


T J%J 


9-40 


9-47 

T ~ » 


9-51 

T i 


9-54 

T J ~ 


10-33 


10-33 

1 V JJ 


10-40 

1 V **v 


10-40 

1 V *»v 


10-48 

i V *• o 


10-48 

1 v **o 


10-52 


10-<5fi 

1 V TO 


1 V TO 


10-9R 

1 V TO 


10-98 

1 V TO 


10-98 

1 V 7y 


10-98 

» V TO 


10-98 

1 V TO 


10-98 

1 V TO 


10-99 

IV T T 


10-99 

1 V TT 


10-99 

IV T T 


10-99 

1 V T T 


10-157 

1 V^ 1 J f 




10-157 


10-157 

1 V 1 J » 


10-157 

IV 1 J I 


10-157 

IV \ J I 


10-157 

IV 1 J * 


10-157 

IV \ J * 


10-157 


10-1 58 

1 V l J V 


10-1 58 

1 V 1 -J V 


10-1 58 

1 V 1 ^O 


10-1 58 

1 V 1 -JO 


10-158 

1 V 1 a/O 


10-158 

1 V 1 


10-1 58 

1 1 «JO 




10-158 

l v 1 JO 


10-158 


10-180 

1 V 1 Ov 


10-185 

1 V 1 V J 


10-185 

1 V 1 V J 


10-185 

1 V 1 \J J 


10-185 

1 V 1 w -/ 


10-190 

1 V 1 TV 


10-190 

1 V 1 TV 


10-190 

1 V 1 TV 


10-190 

1 V 1 TV 


10-322 


10-322 

1 V JCC 


10-322 

1 V JCC 




10-322 


10-322 


10-322 

1 V JC c 


10-322 


10-323 


10-323 


10-325 


10-323 


10-323 


10-323 










PORTA] 


9-46 


23-5* 


























PORTS 


7-0* 


9-40* 


9-41 • 

T ~ 1 


9-42* 


9-45* 


9-49 


10-33 


10-33 


10-40 


10-40 


10-48 


10-48 


10-54 


10-98 

1 V T»J 




10-98 

1 V T*J 


10-98 


10-98 

V 70 


10-99 


10-99 

IV T T 


10-99 


10-99 


10-99 


10-99 


10-99 


10-99 


10-157 


10-157 


10-157 

IV ■ s * 




10-157 


10-157 


10-157 


10-157 


10-157 


10-157 


10-158 

1 V 1 V 


10-158 


10-158 

1 V 1 -/ V 


10-158 


10-158 

l V 1 V 


10-158 


10-158 

i v i J\j 


10-158 




10-180 


10-185 

IV 1 V J 


10-185 

IV • V V 


10-185 


10-185 


10-190 


10-190 


10-190 


10-190 


10-322 


10-322 


10-322 


10-322 


10-322 




10-322 


10-323 


10-323 


10-323 


10-323 


10-323 


10-323 


10-323 














PDRTRI 


9-48 

T ■? o 


23-6* 




























7-0* 


9-51 * 

T ^ 1 


9-52* 


9-53* 






















PRO 


4-51 9# 




























PR1 


4-5 19* 




























PR2 


4-519* 




























PR 3 


4-519* 


13-5 

1 J J 


























DDL 


4-519* 

~ J 1 T^ 




























PR 5 


4-519* 

»/ 1 T^ 


10-18 

IV 1 o 


1 3-9 
























PR6 


4-519* 


9-27 

T C ' 


























PR 7 


4-519* 

■f ^» 1 7" 




























PI 


4-519 

■* JIT 


4-519* 


9-68* 

T UO 
























P5EL 


4-529* 




























PSU 


4-519* 






























7-0* 

r v^ 


10-33* 

IV J ^ 


10-33* 

IV -J ^ 


10-40* 

IV ~ V 


10-40* 

IV ~ V 


10-48* 


10-48* 


10-98* 


10-98* 


10-98* 


10-98* 


1 0-98* 


10-98* 


10-99* 




1 o-99* 


IV T T 


10-99* 

IV T T 


10-99* 


10-99* 

1 V T T 


10-157* 


10-157* 

IV 1 J t 


10-157* 


10-157* 


10-157* 


10-157* 


10-157* 


10-158* 


10-158 




10-158* 


10-158* 

IV ' J U 


10-158* 


10-158* 

IV 1 J V 


10-158* 


10-185* 

IV > V s 


10-185* 


10-185* 


10-185* 


10-190* 


10-190* 


10-190* 


10-190* 


1 0-322 




10-322* 


10-322* 

1 V -J c c 


10-322* 

l V -J t c 


10-322* 


10-322* 

1 V w C 


10-323* 


10-323* 


10-323* 


10-323* 


10-323* 


10-323* 


2^-27 


25-28 


25-30 




25-31 


25-33 


25-35 


25-37 


25-39 




















PWRVFC 


4-519* 




























no 




9-24 

T C ~ 


9-24* 


9-24* 

T C ~ 






















R? 


4-519* 




























RDCMR 


19-1 


22-1* 


























RDl in 


20- » 


22-1* 


























R00CT 


9-34 


9-81 


9-107 


22-1* 






















ROr 


4-526* 




















10-185* 


10-190* 






RELERR 


7-0* 


10-98* 


10-98* 


10-99* 


10-99* 


10-157* 


10-157* 


10-158* 


10-158* 


10-185* 


10-190* 




RELOK 


8-231* 


10-98 


10-99 


10-102* 


10-157 


10-158 


10-185 


10-190 














RFSREG 


22-1* 




























RFSVFC 


4-519* 





























C 8 

WAS 4-692# 

SfO 0093 



0 8 

CZRMSBO RW05/3/2 DU POR 1ST 2 MACRO V04.00 4-APR-81 18:08:36 PAGE S-9 
CROSS REFERENCE TABLE (CREF V01-05 ) 



SEQ 00". 



RHBA 

RMCS1 



RMCS2 



RMDA 
RMD8 
RMDC 
RWDS 



RMDT 

RMEC1 

RMEC2 

RMER1 

RMER2 

RMLA 

RMMR1 

RMMR2 

RMOF 

PWR 

Hi ISN 

RMWC 

SAVREG 

SC 

SCO 

SC 1 

SC2 

SC3 

SC4 

SCOPE 

SEIZPT 

SKI 

STACK 

START 

START1 

START2 

STKLMT 

STOP 

SWO 

SWOO 

SW01 

SW02 

SW03 

SW04 

SW05 

SW06 

SWO 7 

SW08 

SW09 



4-687* 
4-685* 
10-180* 
10-323* 
4-689* 
10-52* 
10-157* 
10-158* 
10-322* 
4-688* 
4-694* 
4-699# 
4-690* 
10-98 
10-157* 
10-190 
10-322* 
4-696* 
4-702* 
4-703* 
4-691* 
4-701* 
4-693* 
4-695* 
4-700* 
4-698* 
4-597* 
4-697* 
4-686* 
22-1* 
4-532* 
4-648* 
4-649* 
4-650* 
4-651* 
4-652* 
4-519* 
7-0* 
4-662* 

4- 519* 

5- 1 
5-3 
9-15 
4-519* 

13-1 
4-519* 
--519 
4-519 
4-5 1 9 
4-519 
4-519 
4-519 
4-519 
4-519 
4-519 
4-519 



10-98* 

10-185* 

10-323* 

10-22* 

10-54* 

10-157* 

10-158* 

10-322* 



10-33 

10-98 

10-158 

10-190 

10-323 

10-40 



10-98* 

10-53 
9-114 



10-62 
10-157* 

9-24 
9-14* 
9-17* 
9-19* 

13-5* 

4-519* 
4-519* 
4-519* 
4-519* 
4-519* 
4-519* 
4-519* 
4-519* 
4-519* 
4-519* 



10-98* 

10-185* 

10-323* 

10-33 

10-98* 

10-157* 

10-180* 

10-322* 



10-33 

10-99 

10-158 

10-190 

10-323 

10-40 



10-99* 
10-55 



10-98 
10-158* 

9-71 
19-1 



10-98* 

10-190* 

10-323* 

10-33 

10-98* 

10-157* 

10-180* 

10-322* 



10-48 

10-99 

10-158 

10-322 

10-323 

10-40 



10-20 
19-1 



10-99* 

10-190* 

10-323* 

10-33 

10-98* 

10-157* 

10-185* 

10-322* 



10-48 

10-99 

10-158 

10-322 

10-323 

10-40 



10-99* 
10-322* 

10-33 

10-98* 

10-157* 

10-185* 

10-322* 



10-48 

10-99 

10-158 

10-322 

10-323 



10-99* 
10-322* 

10-33* 

10-98* 

10-157* 

10-185* 

10-323 



10-48 

10-99 

10-158 

10-322 

10-323 



10-322* 10-322* 10-323* 10-323* 



10-99 10-157 10-158 10-194 
10-322* 10-323* 25-32 25-33 



10-157* 
10-322* 

10-33* 

10-98* 

10-157* 

10-185* 

10-323 



10-48 

10-157 

10-158 

10-322 

10-323 



10-322 
25-35 



10-157* 
10-322* 

10-33* 

10-99* 

10-158* 

10-190* 

10-323* 



10-48 

10-157 

10-158* 

10-322 

10-323 



10-323 
25-37 



10-158* 
10-322* 

10-33* 

10-99* 

10-158* 

10-190* 

10-323* 



10-48 

10-157 

10-180* 

10-322 

10-323 



10-327 
25-39 



10-98 10-99 10-157 10-158 10-178 10-322 



10-158* 
10-322* 

10-4*0* 

10-99* 

10-158* 

10-190* 

10-323* 



10-48 

10-157 

10-180* 

10-322 

10-323 



25-40 
10-323 



10-180* 
10-322* 

10-40* 

10-99* 

10-158* 

10-190* 

10-323* 



10-98 

10-157 

10-185 

10-322 

10-323* 



10-180* 
10-323* 

10-48* 

10-99* 

10-158* 

10-322 

10-323* 



10-98 

10-157 

10-185 

10-322 

10-323* 



10-180- 
10-323 

10-48* 
10-99* 
10-158 
10-322 
10-323 



10-98 
10-157 
10-185 
10-322 



10-322 10-323 



E 8 



SFQ 0095 



F 8 
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clj10 

<;w 1 




























<Llj1 * 




















jW 1 > 




















JWJ 






















4-5 19# 










4-S19* 








Sw7 


4-519* 








SU8 


4-51 9* 








Stf9 


4-51 9* 








SUR 


6-0* 


9-24 


9-24 


9-24* 




13-1* 


13-1* 


13-1* 


13-1* 




5-1* 


9-24 


9-29 


19-1 


SWT C HA 


10-181 


10-322 


23-13* 
23-14* 




SUTCHfi 


1C-186 


10-323 




SWTCHN 


10-193 


10-322 


10-323 


23-12* 


TAP 


4-643* 








TBI TVE 


4-519* 








TEST1 


10-20 


10-20 


10-20* 




TEST10 


10-323 


10-323 


10-323* 




TEST? 


10-98 


10-98 


1 0-98* 




TEST3 


10-99 


10-99 


1 0-99* 




TEST4 


10-157 


10-157 


10-157* 




TEST5 


10-158 


10-158 


10-158* 




TEST6 


10-178 


10-178 


10-1 78* 




TEST7 


10-322 


10-322 


10-322* 




TESTNO 


9-80 


23-8* 






1 IME 


7-0* 


10-157 


10-157* 


10-158 


TIMEA 


7-0* 


9-58* 


10-157 


10-157 


TIMEAP 


7-0* 


9-58* 


10-157* 


10-157* 


TIMES 


7-0* 


9-58* 


10-158 


10-158 




7-0* 


9-58* 


10-158* 


10-158* 




4-519* 


19-1* 


19-1 • 




TOLER 


10-157 


10-158 


12-39* 




TPVEC 


4-519* 








TRAPVE 
TRE 


4-519* 


9-24* 


9-24* 




4-531* 








TRTVEC 


4-519* 








TST1 


9-84 


1 0-20* 


26-4 




TST10 


1 0-322 


10-323* 


26-7 




TST11 


1 0-327* 








TST1AA 


10-17* 


11-1 






TST2 


10-98* 


26-7 






TST3 


10-99* 


26-7 






TST4 


10-157* 


26-7 






TST5 


10-158* 


26-7 






TST6 


10-178* 


26-7 






TST7 


10-322* 


26-7 






TSTAOR 


9-91 


26-4* 






TSTNUM 


7-0* 

25-40 


14-1* 


25-27 


25-28 


tvPDS 


11-1 


11-1 


15-1 


22-1* 



9-24* 
14-1 
19-1 



9-29 
14-1 
19-1 



10-59 
14-1 



10-322 
14-1 



10-322 
19-1 



10-323 
19-1 



10-323 
19-1* 



13-1 



3-1 



S-1 



10-158* 
10-157* 



12-29* 
10-157* 



25-31 



10-158* 10-158* 



25-29 25-30 



25-31 



25-32 25-33 25-34 25-35 



25-37 



25-38 25-39 



G 8 

»>. 6 9-29 9-33 9-38 9-46 9-48 9-50 9-61 



9-69 9-80 9-87 9-10? 9-105 9-'0fc 

SFQ 0097 



H 8 
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SEO 0Q98 



TrPOC 

TVPON 

TVPOS 

UO 

U1 

U3 

UNS 

UPE 

VV 

WSFT 



WATCH 

wCE 

WCF 

WI.E 

WRL 



10-181 

10-323 

15-1 

19-1 
9-8 

22- 1* 
9-47 
4-542* 
4-543* 
4-544# 
A -609* 
4-555* 
4-582* 

10-157 
8-230* 

10-157 

10-185 
7-0* 
4-556* 
4-600* 
4-606* 
4-587# 



10-182 
10-323 
16-1 
19-1 
9-104 



10-98 

10-158 

10-98 

10-157 

10-185 

10-157 



10-186 

10-323 

17-i 

19-1 

15-1 



9-49 22-1* 



10-98 

10-158 

10-98 

10-157 

10-185 

10-157* 



10- 187 

11- 1 

18- 1 

19- 1 
15-1 



10-98 

10-158 

10-98 

10-157 
10-185 
10-158 



10- 193 

11- 1 
19-1 
19-1 
19-1 



10-98 

10-158 

10-98 

10-157 

10-185 

10-1 58* 



10- 322 

11- 1 
19-1 
19-1 
22-1* 



10-98 

10-185 

10-98 

10-157 

10-185 

10-322 



10-322 
14-1 
19-1 
19-1 



10-99 

10-185 

10-99 

10-158 

10-190 

10-322* 



10-322 
14-1 
19-1 
19-1 



10-99 

10-185 

10-99 

10-158 

10-190 

10-323 



10-322 
15-1 

19- 1 

20- 1 



10-99 

10-190 

10-9V 

10-158 

10-190 

10-323* 



10-322 
15-1 

19- 1 

20- 1 



10-99 

10-190 

10-99 

10-158 

10-190 

12-30 



10-322 
15-1 
19-1 
22-1* 



10-99 
10-190 
10-99 
10-158 
10-190 
2-32* 



10-323 10-323 10-3^3 
15-1 15-1 15-1 
19-1 19-1 19-1 



10-157 10-157 10-157 

10-103* 10-157 10-157 

10-158 10-158 10-158 
10-190 
12-3<-* 
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ROSS REFERENCE TABLE (CREF V01-05 ) 



SfO 0099 



ItCMRE 

SICMTM 

MESCA 

tSNFWT 

$$ScT 

$$SK1P 

.*ACT1 

.SCATC 

.SCMTA 

.*EOP 

. tERRO 

.SERRT 

.1RD0C 

.SREAD 

.tSAVE 

.*SCOP 

.STRAP 

.STYPO 

.srvpE 

.STYPO 

.EQUAT 

.HEADE 

.SETUP 

•SWRHI 

.SWRLO 

AA 

08 

CHECK 

CLRATA 
COMMEN 
ENDCOM 
ERROR 



ESCAPE 
FF 

GETPRI 
GETSWR 
MORE TA 
MSG 

MULT 

NEUTRA 

NEWTST 

NWTST 

POP 

PUSH 

RELEAS 

REPORT 

SEIZE 

SELECT 



SE TATA 



5-4 1* 
5-41* 
4-5 19* 
4-519* 
22-1 
4-519* 
4-508* 
4-509* 
4-509* 
4-509* 
4-509A 
4-508* 
4-510* 
4-510* 
4-510* 
4-509* 
4-510* 
4-510* 
4-509* 
4-510* 
4-508* 
4-508* 
4-508* 
4-508* 
4-508* 
10-106* 
10-64* 
4-122* 
10-322 
4-417* 
4-519* 
4-519* 
4-519* 
10-98 
10-157 
10-190 
4-519* 
10-196* 
4-519* 

4- 519* 

5- 7* 
10-3* 
10-323 

4-519* 
4-273* 
4-519* 
4-471* 
4-519* 
4-519* 
4-202* 
4-519* 
4-32* 
4-247* 
10-158 
10-323 
4-450* 



6-0 

6-0 

10-20 
22-1 

10- 322 
5-5 
5-1 
5-41 

11- 1 

14- 1 

15- 1 

20- 1 
19-1 

21- 1 
13-1 

22- 1 
18-1 

16- 1 

17- 1 
4-519 
4-516 
4-705 
4-517 
4-517* 

10-157 

10-98 

10-33 

10-323 

10-180 



9-116 
10-98 
10-158 
10-190 

10-322 

9-29 

6-0 
10-20 
10-323* 

10-98 

10-20 

10-20 

18-1 

18-1 

10-98 

10-157 

10-33 

10-158 



6-0 

10-98 
22-1 



10-158 
10-99 
10-33 
10-323 



10-33 
10-99 
10-158 
10-1^0 

10-323 

9-29* 

10-98 



10-99 

10-98 

10-98 

20-1 

20-1 

10-99 

10-158 

10-33 

10-158 



6-0 

10-99 
22-1 



10-40 
10-323 



10-33 
10-99 
10-158 
10-322 



10-157 

10-99 

10-99 

21-1 

21-1 



10-40 
10-322 



6-0 

10-157 
22-1 



10-40 
10-323 



10-40 
10-99 
10-158 
10-322 



6-0 

10-158 
22-1 



10-48 



10-40 
10-99 
10-158 
10-322 



10-178 
22-1 



10-322 
22-1 



10-323 
22-1 



10-327 
22-1 



22-1 



22-1 



22-1* 



10-48 10-48 



10-48 
10-99 
10-158 
10-322 



10-48 
10-157 
10-158 
10-323 



10-48 



10-48 
10-157 
10-158 
10-323 



10-98 



10-48 
10-157 
10-185 
10-323 



10-99 



10-58 
10-157 
10-185 
10-323 



10-322 10-322 10-322 



10-98 
10-157 
10-185 
13-1 



10-98 

10-157 

10-185 



10-98 

10-157 

10-190 



10-98* 10-99 10-99* 10-157 10-157* 10-158 10-158* 10-161* 10-178 10-322 10-322* 



10-158 
10-157 
10-157 



10-40 
10-322 



10-185 
10-158 
10-158 



10-48 
10-322 



10-190 
10-178 
10-178 



10-48 
10-322 



10-322 10-323 10-327 
10-322 10-323 



10-98 10-98 10-99 
10-322 10-322 10-323 



10-99 
10-323 



10-157 
10-323 



10-157 
10-323 



10-157 
, 0-32 7 - 
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J 8 
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SEC 01. 



SE'PRJ 


/ C A Alt 


10-18 


IT C 

1 5"5 


1 j— V 


SE T TRA 


22-1 


22-1 


oo 1 

22-1 


<T£-1 


5E TUP 


4— 5 IV* 


y— ^4 






fu in 

5K IP 


/ CIO* 

4-51 v* 


1 A—TOO 

10-522 






SLA5H 


4-5 IT* 








STARS 


4-51t* 


c c 


6-0 


6-0 




10-1 fO 


10-1 '8 


10-jcc 


1 A—TOO 

10— bdd 




1 O 1 

18-1 


It" 1 


1 Q_1 

iy-1 


iy— i 


5WI TCH 


4-3^ 5* 








SWRSU 


4-51 t» 


t-^4 


V-r;4# 




T IPlfcR 


4-4Tf* 


10— 1 5f 


1 A_1 CO 

10—1 58 




f MITOQ 

I Kn 1 Hr 


■55—1 « 








T VDfi T fcl 

I TrTSIni 


*»-5 1 tw 












11-1 


1 1-1 

II 1 


1S-1 


TYPNAM 


4-519* 


9-29 






TYPNUH 


4-519* 








TYPOCS 


4-519* 


9-47 


9-49 




TYPOCT 


4-519* 


15-1 


15-1 


19-1 


TYPTXT 


4-519* 


9-6 


11-1 


11-1 


USE RE 0 


10-328* 


11-1 







19-1 
22-1 



10-20 

10-323 

19-1 



22-1 



10-20 

10-323 

19-1 



22-1 



10-98 

10-325 

20-1 



22-1 



22-1 



10-98 10-99 
10-327 11-1 
21-1 22-1 



22-1 



10-99 
13-1 



22-1 



22-1 



22-1* 



10-157 10-157 10-158 10-158 
14-1 15-1 16-1 17-1 



I 
I 



